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ПРЕДИСЛОВИЕ 


2Х эреснит, или как его ласково называют на родине в 
Англии — $Зрессу, прочно вошел в жизнь многих наших 
соотечественников. Он оказался идеальным вариантом нелдо- 
рогого компьютера «для дома для семьи» (поте сотршЕет. 
Маленький 5эрессу с огромным пакетом программного обеспе- 
чения, созданного за десять лет зарубежными прог- 
раммистами, стал своеобразной гуманитарной помощью Запа- 
да бывшему Союзу. 

По традиции, сложившейся для машин класса Коте 
сотрщег, один из популярнеиших языков программирования 
ВАЗТС (Бейсик) «вшит» в память 7Х 5ресгит. Это означает, 
что компьютер готов к работе на Бейсике сразу после 
включения. 

5реснит-Бейсик (так мы булем называть Бейсик, встроен- 
ный в ИХ 5рес{гат) подробно, начиная с самых азов, описан в 
первой главе книги. Большая часть этой главы адресована тем, 
кто только учится программировать. Для более подготовлен- 
ных читателей написан специальный раздел — справочник, где 
вся информация об операторах и функциях 5ресгит-Бейсика 
приведена в сжатой и строгой форме. 

эреснит-Бейсик представляет собой набор лишь самых не- 
обходимых средств программирования. Поэтому сразу после 
появления 5рессу стали создаваться программные пакеты, до- 
полняющие 5эресгит-Бейсик новыми операторами и 
функциями, — расширения $ресиит-Бейсика. Они подгружа- 
ются в память с магнитного носителя и открывают неред 
программистом множество дополнительных возможностей. 

Каждое расширение Бейсика имеет свою область приме- 
нения. Система РКО-ВБО5 ориентирована на преобразование 
экранного изображения и вывод текста разнообразными 
шрифтами. Она используется, в основном, для создания демон- 
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страционных и рекламных программ. Но у РКО-ОО5 имеется 
существенный недостаток — она не позволяет перемещать 
картинки. На динамических эффектах специализируется пакет 
Газег Ваз!с. С его помощью можно различными способами 
трансформировать графические объекты (спрайты) и 
передвигать их по экрану, создавая что-то наподобие 
мультфильмов. 

При необходимости максимально расширить арсенал 
средств программирования можно пустить в ход «тяжелую 
артиллерию» — диалекты МедаВаз1с и Ваа Ваз1с. Они не 
только вводят много новых операторов и функций, но и дела- 
ют более удобным и эффективным процесс написания и 
отладки программ. МедаВаз!с, в основном, ориентирован на 
усиление внешнего оформления программ (управление спрай- 
тами, генерация звуковых эффектов и т. д.). Ва Вазс неза- 
меним для решения расчетных задач и реализации сложных 
алгоритмов обработки данных. МедаВазяс и Веа Вазс занима- 
ют в памяти компьютера довольно много места, но этот недо- 
статок с лихвой окупается мощностью этих языков. 

Олна из глав книги содержит описания компиляторов 
5$реснит-Бейсика, от самых простых (2Х-Сотр!ег, Мсодег 2, 
ЗоНек 1$) до более серьезных ($о#Нек ЕР, ТоБо$ ЕР). 

В последнее время все болыпую популярность среди синкле- 
ристов приобретает компьютер 7Х 5Зресиит 128. Учитывая 
это, в книгу включена глава о языке программирования 
Бейсик 128, «вшитом» в память 7Х 5ресгат 128. 


Глава посвященная стандартному $Зресйгит-Бейсику, 
написана А. Болдачевым, консультировали его Н. Родионов и А. 
Ларченко. Компиляторы описали В. Елисеев и Л. Клюев, 
РКО-2РО5$ — Л. Клюев, Газег Ваз1с — П. Карпов (консультант — 
А. Евдокимов), МедаВаяс — Ю. Родионов, Веа Вазс- — 
И. Думов (при участии Л. Клюева). Материал о Бейсике 128 
подготовил А. Ларченко. 


Условные обозначения, используемые в книге: 


С5 — клавиша Сар$ ЗЫ; 

$5 — клавиша ЗушЪо]! ЗЫ; 

С$/72 —-— клавиши нажимаются одновременно 
(в данном случае Сар$ ЗЫ! и 2; 

У+2. — клавиши нажимаются последовательно 


(в данном случае У и 2); 

В — в квадратные скобки заключаются необязательные 
элементы формата операторов и функций; 

— может использоваться один из нескольких 
элементов формата, разделенных этим знаком. 
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КОРОТКОЕ ВВЕДЕНИЕ 


Это введение написано не для программистов, а для тех, кто 
только собирается ими стать. Конечно, новичку нужна. особая 
книга, но, может быть, и эта начальная информация облегчит 
понимание не столь уж хитрого языка программирования — 
Бейсик. 


Начнем с самого простого. Попробуем ответить на вопрос, что 
такое — компьютер? Что о нем должен знать программист? 

Ничего особенного, кроме того, что в компьютере есть процес- 
сор, память и устройства ввода-вывода (клавиатура, монитор и 
другие). Достаточно знать, что процессор обрабатывает инфор- 
мацию, память хранит данные, а устройства ввода-вывода обес- 
печивают связь компьютера с внешним миром. 

Основное же, что должно интересовать программиста — это 
список команд процессора. Вель чем программист занимается? 
Лишь тем, что составляет из команд последовательности, называе- 
мые программами. И только. 

Обобщим: программист должен хорошо представлять себе, как 
ввести в компьютер исходные данные, в каком виде можно по- 
лучить результат, и великолепно знать, как при помощи команд 
преобразовывать одно в другое. 

Список команд индивидуален для каждого типа процессора и 
закладывается раз и навсегда при его проектировании. Команды 
доводятся до процессора в виде чисел — кодов. Распознавая эти 
коды, он выполняет те или иные действия, например: пересылает 
данные из одного места памяти в другое, выполняет  мате- 
матические операции и другие элементарные преобразования. 
Последовательность, составленная из команд процессора, называ- 
ется программой в машинных кодах или просто программой в кодах. 


Оперировать с набором кодов неудобно, и естественное стрем- 
ление программистов научить машину понимать человеческую 
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речь привело к появлению всевозможных языков программирования 
— систем, позволяющих записывать программы: словами. Первым 
делом для составления программ стали. использовать мнемоничес- 
кую запись команд процессора — слова или наборы букв, одноз- 
начно соответствующие кодам. После того, как последовательность 
указаний процессору записана с помощью мнемоник, ее пропу-. 
скают через специальную программу, которая переводит слова в 
коды. Такая система прямого перевода получила название язык 
программирования низкого уровня — ассемблер. «Слов» в ассемблере 
практически столько же, сколько команд процессора, выигрыш 
получается лишь в наглядности представления программы. 


Следующим шагом в развитии языков программирования стала 
идея «записывать» часто повторяющиеся последовательноести ко- 
дов одним, так называемым ключевым словом. Например, сказал 
компьютеру: «РАМТ 2*2» (что в приблизительном переводе с 
английского означает: напечатай, сколько будет дважды два}, а он 
и сосчитает, и выведет результат на экран, то есть выполнит 
достаточно длинную, но стандартную последовательность команд 
процессора. Ее надо только один раз составить, а потом ис- 
пользовать и для «дважды два — четыре» и для «трижды три — 
где-то семь». 

Таким образом, достаточно написать множество стандартных 
последовательностей команд, выполняющих часто повторяющиеся 
операции, например: «вычислить косинус выражения», «опросить 
клавиатуру — не нажата ли клавиша», «остановить выполнение 
программы», «если некое условие соблюдено, то выполнить за- 
ланные действия» и т. д. После этого каждую из последователь- 
ностей нужно назвать соответствующим человеческим словом: 
СО$, НМКЕ\, $ТОР, ШЕ...ПНЕМ — и получится язык программирования 
высокого уровня. 

Наиболее доступным из языков высокого уровня является 
Бейсик. Его исконное название — ВА$1С, а полностью — Ведтпег 
АП-ригрозе ЗушБоНс ТшзнисНоп Со4е, что в переводе означает 
«инструктивный многоцелевой код для начинающих». Принято 
считать Бейсик языком учебным: он проще других в изучении и 
использовании. Но при этом Бейсик имеет все необходимые срелд- 
ства для решения большинства программистских задач. Впрочем, 
о Бейсике мы еще наговоримся, а сейчас еще несколько слов о 
языках программирования высокого уровня. 

Итак, благодаря использованию в языках программирования 
«человеческих» слов программы стало писать легче и быстрее. И 
читать удобнее. Программисту. А компьютеру? Для компьютера 
надо переводить текст программы на компьютерный язык — язык 
команд процессора. Программа, понимающая слова языка прог- 
раммирования и заменяющая их соответствующими последова- 
тельностями команд процессора, называется транслятор (от англ. 
гапза!е — переволить). 


Наиболее простой способ трансляции — это немедленный «до- 
словный» перевод, так называемая интерпретация (от англ. 
пцетрге! — толковать). Программа, осуществляющая такой перевод, 
называется интерпретатором. Она опознает ключевые слова язы- 
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- ка программирования (СО5, $ТОР и прочие} и тут же «подсовывает» 
процессору соответствующую последовательность кодов. 

Интерпретатор может работать в двух режимах: в непосредст- 
венном-режиме и в режиме выполнения программы. В непосредст- 
венном режиме действие, заданное тем или иным ключевым сло- 
вом, выполняется сразу же после введения слова с клавиатуры. 
Аля работы в режиме выполнения программы предварительно сло- 
вами языка программирования записывается последовательность 
требуемых от компьютера действий — текст программы. В тексте 
расписывается, что сделать сначала, что потом, что откуда взять и 
куда положить. Программа заносится в память компьютера и запу- 
скается на выполнение, то есть интерпретатору дается залание 
слово за словом считывать из памяти текст программы и пере- 
водить его на язык команд процессора. (Именно такой интерпрета- 
тор «зашит» в постоянной памяти 7Х 5ресйит.) 


У интерпретаторов есть болыное достоинство — простота от- 
ладки программ: выполнение программы в любой момент можно 
остановить и отредактировать ее текст. Но есть и существенные 
недостатки. Во-первых, программы работают только при наличии 
в памяти компьютера самого интерпретатора, который занимает 
довольно много места. И, во-вторых, программа, работающая с 
интерпретатором, делает все очень медленно. Время уходит и на 
распознавание слов языка, и на поиск соответствующих последо- 
вательностей команд процессора, и на прочее, прочее, прочее. Не 
говоря о том, что сами стандартные последовательности, 
вследствие их универсальности, получаются гораздо длиннее, чем. 
программы в кодах, написанные специально для каждого конкрет- 
ного случая. И, естественно, дольше выполняются. 


От этих недостатков удалось избавиться с изобретением другого 
способа трансляции — компиляции (от англ. сотрйе — собирать). 
Компилятор — специальная программа, исходным продуктом для 
которой, как и для интерпретатора, является текст на соответству- 
ющем языке программирования высокого уровня. Но в отличие от 
интерпретатора, компилятор не выполняет предписанные этим 
текстом действия немедленно, а создает, собирает из имеющихся в 
нем стандартных последовательностей другую программу — в ко- 
дах, не зависимую от каких либо трансляторов. Главная задача 
компилятора — сделать программу максимально быстродействую- 
щей. Откомпилированную программу, как и любую программу в 
кодах, трудно читать и изменять. Приходится редактировать исход- 
ный текст на языке высокого уровня и пропускать его вновь через 
компилятор, чтобы получить новую программу в кодах. 


Созданы компиляторы и для Зреснит-Бейсика. О них позже. А 
сейчас — об интерпретаторе Бейсика. Основная часть первой 
главы рассчитана на начинающих. Для уже имеющих опыт в 
программировании предназначен специальный раздел — «Спра- 
вочник по 5реснит-Бейсику» (далее просто «Справочник»). 


$РЕСТКУМ-БЕЙСИК 


ПЕРВОЕ ЗНАКОМСТВО 


Бейсик — родной язык компьютера 7.Х Зрестат. На Бейсике он 
готов вести беседу сразу после включения питания и ноймет то, что 
мы хотим ему сказать с полуслова. Ведь для ввода бейсиковской. 
команды в эзресиити достаточно нажать лишь одну клавишу, ну 
две, в крайнем случае, три, не больше. И все благодаря тому, что 
программа, которая «сидит» в ностоянной памяти компьютера, и 
клавиатура машины специально приспособлены для работы на 
Бейсике. Это видно при первом же знакомстве со эрессу: на его 
клавиши кроме букв, цифр и всяких значков нанесено еще по 
несколько английских слов. Это слова из лексикона Бейсика — 
имена его операторов и функции. Они называются ключевыми 
словами. 

На больнинстве компьютеров ключевые слова языков регран- 
мирования, в том числе и Бейсика, набираются но буквам. Напри- 
мер, для набора слова РАМТ приходится нажимать одну за другой 
пять клавиш: Р, В, Г, МиТ. И при этом нельзя онтибиться, иначе 
компьютер не поймет, что, собственно, от него хотят. эрессу же, 
если с ним говорить на Бейсике, гораздо смышленее. 

Включим компьютер и после того, как надоест любоваться фир- 
менной заставкой 
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— нажмем клавиигу, на которой нарисована буква Р. В нижней 
части экрана, в так называемой строке редактора, мгновенно 
появится слово РЕМТ. Целиком и гарантированно без опгибок. 

В результате нехитрого действия (нажатия клавинги} мы на- 
брали, или, как принято говорить, ввели оператор РЕМТ. Оператор 
— это ключевое слово, нреднисывающее комньютеру вынолнить 
некую законченную последовательность действий. Например, опе- 
ратор РЮИМТ отвечает за вывод на экран числовой и текстовой 
информации. Он так и переводится — «печатать». Что именно 
печатать. записывается следом за словом РАМТ. 

Там, на экране, за РАМТ, давно уже мерцает квадратик С буквой 
Г. Этот квадратик называется курсором. Его основное назначение 
— указывать место, куда будет введен символ или ключевое слово 
при нажатии клавиши. Нажмем, например, клавингу с изобра- 
жением цифры 5, и эта цифра выскочит на экран в том месте, где 
до этого был курсор, а сам курсор передвинется правее. 

Теперь у нас получился полноценный оператор: ключевое слово 
с данными — РЮМТ 5. Можно приказать компьютеру выполнить 
его. Найдем на клавиатуре клавингу с надписью Ецег (ввести, 
англ.) и нажмем ее. В верхнем левом углу экрана напечатается. 
_ цифра 5 (что и ожидалось), сам оператор пропадет, а на его месте 
появится сообщение: 


в ОК, 0:1 


Мол, все о'кей, оператор* выполнен. 


Цифры 0:1 означают: первый в нулевой строке. 


со 


ПЕРВОЕ ЗНАКОМСТВО 


На этом примере мы не только ознакомились с тем, как одним 
нажатием клавииги набрать ключевое слово и выполнить полу- 
чившийся оператор, но и с простейшим форматом оператора РАМТ. 

Формат — это узаконенный для языка программирования спо- 
соб соединения ключевого слова, параметров и данных. Парамет- 
ры задают режим работы операторов. Их количество и смысл 
строго определены для каждого из них. Данными будем называть 
«перерабатываемую» операторами информацию. В выполненном 
нами операторе данными явмется цифра 5, а параметров нет. 

Оператор РЕМТ имеет более сложный формат, если с его по- 
мощью на экран нужно вывести не числовые данные, а символь- 
ные, то есть буквы или другие знаки (символьные данные часто 
еще называют строковыми или. просто строками). В этом случае 
данные заключаются в кавычки. Вот так: 


РЕМТ "р" 


Набирается эта конструкция предельно просто. После вклю- 
чения компьютера (или выполнения какого-либо оператора} 
нажимаем клавипгу Р (последствия этого действия нам уже извест- 
ны). Далее давим на клавингу с наднисью ЗушЪо] ЗЫ и, не отпу- 
ская ее, опять клавишу Р — на экране появится кавычка ("). Потом 
еще раз — клавишу Р и еще раз — ЗутЬБо! 5 одновременно сР 
(кавычка). Теперь можно жать Етег, РАМТ кавычки «обрежет» и 
напечатает на экране строчную букву р. 


Если при наборе оператора допущена ошибка, нет необходи- 
мости сбрасывать компьютер и начинать ввод сначала. Пока не 
нажата клавиша Ещег, набранную строку можно редактировать. 
Выведенные на экран ключевые слова и символы удаляются 
одновременным нажатием клавиш Сар$ ЗВ и 0. Эта комбинация 
клавиш задает команду редактора Веще. После ее выполнения 
символ или ключевое слово, стоящее левее курсора, удаляется. 
Нодвести курсор к любому месту набранной строки можно с 
помощью клавиш перемещения курсора: Сарз ЗЫ и 5 (влево) и 
Сар ЗЫ# и 8 (вправо). Если необходимо вставить в уже набран- 
ную строку еще что-нибудь, то к нужному месту подводится курсор 
и обычным образом набирается ключевое слово или символ. Текст, 
расположенный правее курсора, при этом сдвигается, освобождая 
место для вводимых символов. В этом коротеньком абзаце мы 
описали редактор строк Зреснит-Бейсика. Улобств в нем малова- 
то, но набрать и поправить строку можно. 


Пример с выводом на экран буквы р приве- 
ден здесь не только для того, чтобы проде- 
монстрировать формат оператора РАМТ при 
выводе символьных данных, но и для пояс- 
нения специфики работы клавиатуры 
7Х 5ресйчт. Для большей наглядности 
включим в строку, взятую в кавычки, еще 
прописную букву Р, и значок ©. Они 
набираются нажатием все той же клавиши 
(рис. 1): прописная Р — совместно с 
клавишей Сар$ ЗЫ, а значок © — сложнее: 
сначала одновременно нажимаются уже изве- 


Рис. 1. Клавиша Р. 


$РЕСТВУМ-БЕЙСИК 


стные нам клавиши Сар$ ЗЫ и $ушЪо]! ЗЫЙ и только потом 
$упЬо! 5ЗЫЙ и Р. Получим в строке редактора оператор 


РАМТ "рР©” 


На этом примере мы показали, что, нажимая одну и ту же 
клавишу на клавиатуре 7Х 5ресйат в различных сочетаниях с 
двумя управляющими клавишами (Сар$ ЗЫ и $утЬо! 5), можно 
получить на экране разные символы. В примере мы вывели на 
экран и ключевое слово РАМТ, и кавычку, и знак ©. На клавише Р 
есть еще одно ключевое слово — ТАВ, которое также можно «вы- 
удить» с ее помощью. Пока без пояснений специфики использо- 
вания ТАВ вставим его в оператор РАМТ: 


РЕМТ ТАВ 10; "рР©" 


Для «извлечения» ТАВ нужно одновременно нажать клавиши 
Сар; ЗЫ и $ушЬо! ЗЫ, а потом клавишу Р. Знак «точка с запя- 
той» (;), расположенный на клавише О, необходим для нормальной 
работы оператора РАМТ и набирается тем же способом, что и 
кавычка: совместным нажатием Зуто] ЗЫ и клавиши О. РЮМТ в 
сочетании с ТАВ напечатает на экране комбинацию из трех симво- 
лов (рР©), но поместит ее не у левого края экрана, а ближе к его 
середине. 


Такой «многоступенчатый» ввод — следствие отказа от побук- 
венного набора. Ведь ключевых слов Зреснит-Бейсика в нес- 
колько раз больше, чем клавиш у 5рессу. А еще буквы, знаки. Вот 
и получается по несколько символов и ключевых слов на клавишу. 

Что конкретно появится на экране после нажатия какой-либо 
клавиши, зависит не только от того, какие управляющие клавиши 
были нажаты до или. одновременно с ней, но и от режима, в 
котором находится компьютер. Например, в одном режиме компь- 
ютер ждет ввода оператора или номера строки программы, в дру- 
гом — набора цифр или букв. Мы уже убедились в этом: первый 
раз нажали клавишу Р — получили ключевое слово РЕМТ, второй 
— буквочку р. | 


О своих ожиданиях, то есть о режиме, в котором он находится, 
компьютер дает знать по букве, помещенной в курсор (ло ввода 
РАМТ в курсор вписывалась буквочка К, сразу после ввода — 1, а 
при наборе ТАВ и знака © — Е). Индикация режима — это вторая 
функция курсора, в дополнение к обязанности указывать место, в 
которое будет поставлен символ либо ключевое слово при нажатии 
клавиши. 


Учитывая все сказанное о клавиатуре, нам не избежать более 
подробного рассказа о том, как ею пользоваться. Вот такой уж 
эзреснат-Бейсик — без знания клавиатуры и программу не набе- 
решь. Те, кто читает эту книгу из любопытства или только для 
общего знакомства, без особого ущерба для себя могут пропустить 
следующий раздел. 
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КЛАВИАТУРА —_ 


КЛАВИАТУРА 


Режимов клавиатуры или так называемых режимов курсора пять. 
Обозначаются они буквами в соответствии с видом курсора: [К}, 
[6], [С]. [Е] и [©]. 

Перед рассказом о клавиатуре договоримся, что управляющие 
клавиши Сар$ ЗЫ и ЗутЬо] ЗЫ далее будем обозначать, соответ- 
ственно, С$ и $$. Олновременное нажатие клавинг будем записы- 
вать через значок /, последовательное — через +. Например, поря- 
лок «извлечения» символа © запишется так: С$/$$+$$/Р. 


Режим ключевых слов (Кеу\мгога$) 
Курсор [К] 


После включения или сброса компьютер устанавливает режим 
набора ключевых слов: выводит в нижний левый угол экрана 
курсор [Ж] и ждет ввода оператора. В этот режим он автоматически 
переходит и после ввода очередной строки программы или после 
набора двоеточия (:}, а также после ввода ключевого слова ТНЕМ 
(см. стр. 33). 

В режиме курсора [КЖ] вводятся ключевые слова и знаки, разме- 
щенные в центральной части клавиши. К примеру, для клавинги Р 
(см. рис. 1) — это РАМТ и". Ключевые слова, написанные чуть 
ниже центра клавиши (РАМТ), вводятся простым нажатием 
клавииги. Ключевые слова или знаки, расположенные чуть выше 
центра (") — одновременным нажатием клавиши и $5. Цифровые 
клавинги в режиме [К] выводят цифры (простое нажатие), знаки 
(совместно с $$} и команлы редактора* (совместно с С$). 


Режим основных символов (ТеНег] 
Курсор [Е] 


Носле появления на экране очередного ключевого слова компь- 
ютер заменяет курсор [ЖК] на П.], чем лает понять, что ждет ввода 
букв или цифр. Буквы 5рессу печатает как большие (прописные), 
так и маленькие (строчные). Маленькие появляются при простом 
нажатии клавииги, а болынпие — при нажатии одновременно с 
управляющей клавишей С$5. 

В режиме курсора П.] при одновременном нажатии буквенной 
клавиши и $5, так же, как и в режиме [К], на экране появляются 
символы и ключевые слова, расположенные чуть выше центра 
клавиши. 


Управление курсором, вызов на редактирование строки программы ит. д. 
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Режим прописных букв (СарИЙаг!] 
Курсор [©] 


При необходимости напечатать длинную фразу болыними бук- 
вами можно не удерживать клавишу С$, проще перейти в режим 
печати прописных букв. Для этого нужно нажать клавиши С$/2 
(Сар$ Госк). Курсор [Ш] заменится курсором [©]. Возвращается 
компьютер в режим курсора [1] при повторном нажатии ©С$/2. 


Расширенный режим (Ееп4 Моде] 
Курсор [Е] 


В расширенном режиме на экран выводятся ключевые слова и 
знаки, написанные выше или ниже клавиш (либо — для многих 
самодельных вариантов 7Х ЗресНит — «на чердаке» и «в подва- 
ле» клавишной наклейки). Аля перехода в этот режим нужно 
одновременно нажать управляющие клавиши $$ и С$. Переход к 
расширенному режиму сопровождается появлением курсора [Е]. 

Верхние слова и символы вводятся простым нажатием клавиши 
в режиме [Е] (например, ТАВ на клавише Р), а нижние — с удер- 
жанием клавиши $$ (символ ©). При извлечении нижних ключе- 
вых слов и символов, расположенных на нецифровых клавишах, 
вместо клавиши $$ можно использовать и С$. После вывода слова 
или символа в расширенном режиме компьютер автоматически 
возвращается в режим курсора [1] (либо [$], в зависимости от 
того, какой из них был включен до перехода в режим [Е]). 


Кроме перечисленных режимов работы клавиатуры ([К], 11], [©] 
и [Е]. есть еще один — так называемый режим псевдографики 
(курсор [@] — СгарШс$). Об этом режиме мы расскажем в другом 
месте описания 5ресиат-Бейсика (см. стр. 56). 

После знакомства с клавиатурой можно не только читать эту 
книгу, но и «проигрывать» ее содержание на клавишах компьюте- 
ра. Хотя делать это и необязательно. Постараемся так строить 
рассказ, чтобы читать книгу можно было не только дома, но и в 
метро или автобусе, куда не потащишь свой 5рессу. 


Несколько слов о последовательности изложения. Сначала в 
общем виде опишем основные операции, выполняемые Зреснит- 
Бейсиком (вывод на экран, математические вычисления, операции 
с символьными значениями, работа с графикой и др.). И лишь 
потом на простеньком примере приступим к собственно прог- 
раммированию. После этого расскажем о некоторых операторах и 
функциях необходимых, но относительно редко применяемых. Да- 
лее — описание системных переменных интерпретатора. В завер- 
шение несколько замечаний на темы «как сократить размер прог- 
раммы» и «как защитить ее от несанкционированного доступа». 
Решайте сами, что читать, что пропустить. Некоторые считают, что 
лучше сразу начать с программирования — попробуйте; если 
будет что непонятно, вернитесь к описанию основ. 


12 


ВЫВОД СИМВОЛОВ НА ЭКРАН_ 


ВЫВОД СИМВОЛОВ НА ЭКРАН - 


Невооруженным глазом видно, что изображения символов на 
экране $5рессу строятся из отдельных точек. Эти точки в компью- 
терной терминологии называются пикселями. Символы вписыва- 
ются в стандартные по размерам и положению площадки — знако- 
места. Размер знакоместа — 8х8 пикселей. При соответствующем 
сочетании «зажженных» и «погашенных» пикселей в знакоместе 
вырисовывается тот или иной символ. В качестве примера приве- 
дем «строение» прописной буквы А стандартного набора символов 
Г.Х эресиит (рис. 2). 

Знакоместами как сеткой покрыт весь экран, образуя 24 строки 
и 32 столбца. Две последние строки Бейсик использует для набора 
и редактирования программ и вывода сообщений. Эти строки. 
имеют собственное название — служебный экран. Остальные 22 
‚строки называются основным экраном (рис. 2). 


Каждое знакоместо имеет свою «прописку» — координату. 
Отсчет ведется от верхнего левого знакоместа, которому присвое- 
ны координаты (0, 0), — нулевая строка, нулевой столбец. С этого 
знакоместа начинает печатать первый выполненный после сброса 
компьютера оператор РЕМТ. 

Если при печати текст заполняет все 32 знакоместа строки, то 
вывод символов автоматически переносится на начало слелдующей 
строки. 

Каждый последу- 
ющий РЕМТ начинает 
вывод символов с новой 
строки, если, конечно, 
не было никаких допол- 
нительных указаний. 
Например, если преды- 
дущий оператор РЕМТ за- 
веригился точкой с запя- 
той (), то следующий 
РАМТ должен продолжить 
начатое дело и печатать 
со следующего знакоме- 
ста той же строки*: 


Основной 
экран 


РАМТ "7Х"; 

7х 

РЕМТ "_5рестит" Служебный 
7Х $реснит ла 


Рис. 2. Строение символьного экрана. 


В таком виде мы будем приводить примеры, выполняемые в непосредственном 
режиме: результат, выводимый на экран, будем выделять более жирным шриф- 
том. Указание на то, что для выполнения оператора нужно нажать клавишу Ешег, 
э также сообщение о нормальном завершении работы (0ОК) будем опускать. 
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Строка, выводимая вторым оператором РАМТ, начинается зна- 
КОМ «пробел», название которого говорит само за себя — он очи- 
щает знакоместо. Для управления оператором РЕМТ кроме точки с 
запятой используются и другие знаки: запятая (,) и апостроф (‘), но 
информацию о них «сошлем» в конец главы (см. стр. 57). 

Основными средствами, указывающими оператору РАМТ по- 
зицию экрана, с которой нужно начинать вывод символов, являют- 
ся ключевые слова ТАВ и АТ. 

С ТАВ мы уже встречались и знаем, что после него ставится 
некое число — нараметр. Нараметр указывает знакоместо, в кото- 
рое надо поместить первый выводимый на экран после ТАВ сим- 
вол. Значение параметра соответствует порядковому номеру зна- 
коместа в строке и может принимать значения от 0 до 31 (по 
количеству столбцов экрана). 

Ключевое слово АТ так же, как и ТАВ, используется совместно с 
оператором РЕМТ. Формат его подразумевает наличие после ключе- 
вого слова двух параметров, разделенных запятой. Значения этих 
параметров задают координаты знакоместа, с которого следует 
начинать вывод: первый — номер строки (0...21), второй — номер 
столбца (0...31). 

Ключевые слова ТАВ и АТ могут быть вставлены в любое место в 
строке после РЕМТ и должны отделяться от данных точкой с занпя- 
ТОЙ: 

РЕМТ ТАВ 9; "ВАЗС"; АТ 0,0; "5реснит-" 
$реснит-ВАЗС 


МАТЕМАТИЧЕСКИЕ РАСЧЕТЫ 


Алгебраические действия 


Первое представление, получаемое многими о компьютерах, 
сводится к пониманию того, что это нечто считающее. Такое пред- 
ставление недалеко от истины. Сам но себе компьютер только и 
умеет, что считать. Все осталь- 
ное — происки программистов. 

Для демонстрации матема- 
тических способностей 5рессу 
воспользуемся все тем же опе- 
ратором РЕМТ. Выполним 


РАМТ 2+2 
На экране появится цифра 4 
— результат вычисления число- 
вого выражения, записанного 
после РЕМТ. Попробуем задать 
компьютеру задачку посложнее: 


РЮИМТ 2*(21.3/3—5.1)+212 
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МАТЕМАТИЧЕСКИЕ РАСЧЕТЫ 


Он мгновенно выдаст результат — 8. 
В этом примере были задействованы все алгебраические опе- 
рации, понятные 5Зреснит-Бейсику: 


+ сложение,` 

— вычитание, 

* умножение, 

/ деление, 

1 возведение в степень. 


При записи чисел вместо запятой в десятичных дробях принято 
использовать точку. Скобки играют ту же роль, что и в обычных 
математических выражениях. 

Последовательность вычислений также не отличается от приня- 
той в математике: сначала подсчитываются значения выражений, 
взятых в скобки, внутри скобок в первую очередь выполняются 
операции возведения в степень, умножения, деления, потом сло- 
жения и вычитания. 


Числовые функции 
$ОЮ, ЕХР, М, УМ, СО$, ТАМ, АЗМ, АС$, АТМ 


Функция в программировании — это специальная программа, 
преобразующая по заданному правилу некое исходное значение, 
называемое аргументом, в другое значение, называемое результа- 
том. Принято говорить: «Функция возвращает результат». 


Наиболее привычными и понятными функциями являются ма- 
тематические. Бейсик 7Х 5реснит предоставляет в наше пользо- 
вание набор самых необходимых из них: 


5аю® — квадратный корень, 
ЕХР — экспонента, 

ем — натуральный логарифм, 
УЧ > СНУ С, 

Ссо$ — косинус, 

ТАМ — тангенс, 

А$М — арксинус, 

АС$ — арккосинус, 

АТМ — арктангенс. 


После каждого из перечисленных ключевых слов должен стоять 
аргумент функции — число либо выражение, которое может вклю- 
чать в себя в том числе и функции. Выражения необходимо заклю- 


$РЕСТВУМ-БЕЙСИК 


чать в скобки. Для примера, вычислим с помощью РАМТ следующее 
выражение: 


РЕМТ 1+СО5$ Р!-ЕХР (2-—1.3) 
—2.9137527 


Здесь аргументом функции СО$ является константа Р!. Вместо 
нее при вычислениях компьютер подставляет значение числа 
«пи», равного 3,1415927. Набирается Р! обычным, принятым для 
ГХ Зресниат способом — целиком ключевым словом (клавиши 
С$/$$+М). 

Аргументы тригонометрических функций подставляются в ради- 
анах. Аля перевода числа из градусов в радианы надо умножить его 
на Р!/180, а для обратного преобразования умножить на 180/Р'. 


В алгебраических расчетах, кроме перечисленных стандартных 
функций, Зреснит-Бейсик позволяет использовать несколько 
специальных: 


АВ$ — вычисление абсолютного значения, | 
МТ — округление до ближайшего меньшего целого, 
$©М — определение знака аргумента. 


Все функции Зреснит-Бейсика подробно описаны в «Спра- 
вочнике». 


ОПЕРАЦИИ С СИМВОЛАМИ 


ТО, КЕМ, $Т®$, МАЕ 


Каждый язык программирования высокого уровня и, конечно 
же, Бейсик, кроме обработки числовых значений должен уметь 
преобразовывать и символьные данные — строки, составленные 
из букв, цифр и прочих знаков. 


Простейшее действие, которое можно выполнить над символь- 
ными значениями, — это сложить их с помощью обычного знака +: 


РЕМТ "ВА$"+"1С" 
ВАС 


Результат такой же, как если бы мы попросили компьютер 
напечатать слово ВАЗТС целиком (РЕМТ "ВАЗС"). 
° В Бейсике 2Х Зреснит можно выполнить операцию, обратную 
сложению: выделить из символьного значения некоторую его часть 
— подстроку. Это действие также называют сечением. Для его 
выполнения после строки символов в скобках через ключевое 
слово ТО указывается, с какого и по какой символы требуется 
выделить подстроку: 


РЕМТ "АВСОЕЕ"“(2 ТО 5) 
ВСОЕ 


Если подстрока выделяется, начиная с первого символа, то мож- 
но писать сокращенно: (ТО 5). И, аналогично, если подстрока 
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ОПЕРАЦИИ С СИМВОЛАМИ 


выделяется до конца символьной строки, то разрешается записать: 
(2 ТО). Допустимо задавать сечение и вообще без параметров: 


РЕИМТ "АВСОЕЕ"(ТО) 
АВСОЕЕ 


Последнее сечение можно было записать и без ТО: 
АВСОЕР() 


Слово ТО также можно опустить, если выделяется лишь один 
символ, то есть вместо (3 ТО 3) использовать (3): 


РЕМТ "АВСОЕЕ"(3) 
с 


Если границы сечения выходят. за пределы строки, компьютер 
выдаст сообщение об ошибке. Попробуйте ввести: 


РЕИМТ "АВСОЕЕ"(2 ТО 10) 


— и получите внизу экрана сообщение $иБзсир#+ \змтопа (не- 
правильный индекс). 


Вообще, если компьютеру что-нибудь не нравится в наших 
действиях, он будет ругаться различными английскими словами. 
Неревод сообщений об ошибках и описание ситуаций, в которых 
они возникают, можно посмотреть в «Справочнике». 


С помощью функции ЕМ можно выяснить длину символьной 
строки, то есть определить, сколько позиций займет она на экране 
при печати*: 


РАМТ ТЕМ " УМСЬАЮ “ 
10 


Пробелы также считаются сим- 
волами и учитываются при рас- 
чете длины. 

Функция 5$18$ преобразует 
числовые значения в символьные 
(«прицепляет» к числу кавычки). 
Например, 5$1№$3 возвращает 
символьное значение "3". 

Можно рассчитать его длину: 


РАМТ ТЕМ $Т®$ 3 
1 


При необходимости можно выполнить преобразование, обрат- 
ное функции $Т1®$, — превратить строковое значение в числовое. 
Нужно только воспользоваться функцией УАЕ: 


РЕМТ УАЁ "5.25"—2.25 
3 


* 
-_ Это не совсем точно: строка может содержать символы, которые не выводятся на 
экран. 
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$РЕСТКУМ-БЕЙСИК 


УАЁ «оторвала» кавычки, пре- 
вратив строковое значение в 
нормальное число, с которым 
можно производить математи- 
ческие операции. 

Функция УАЁ может обраба- 
тывать и числовые выражения, 
представленные как символь- 
ные значения. Например: 


РАМТ \УАЁ "3*3+1" 
19 


Если УАЁ применить к сим- 
вольному значению, не имею- 
щему ничего общего с числами, 
то компьютер воспримет это как 
ошибку. 


Символы и их коды 
СОБЕ, СНВ$ 


Каждая буква, цифра, знак — вообще все, что мы называем 
символами, кроме визуального представления на экране (и 
клавиатуре), имеет еще и свой числовой эквивалент — код. Имен- 
но последсвательность этих кодов сохраняется в памяти компьюте- 


ра при записи символьного значения. 


ГХ 5ресйит так организован, что ключевые слова Бейсика 
(РЕМТ, УАЕЁ и т. д.) также являются отдельными знаками, каждый со 


своим кодом*. 

Всего в 7Х 5ресйит опре- 
делено 256 символов с кода- 
ми от 0 до 255. Полный на- 
бор и тех и других можно пос- 
мотреть в таблице символов 
на стр. 100. 


Выяснить, какой код со- 
ответствует символу или, на- 
оборот, символ — коду, мож- 
но и не пользуясь таблицей, а 
с помощью функций СОВЕ и 
СНВ$: 

РЮМТ СОРГЕ "А" 
65 
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ы 


$ 


Это существенно сокращает объем памяти, занимаемый бейсик-программой. 


ГРАФИКА 


Так мы узнали, что код заглавной буквы А равен 65. Или, 
наоборот: 


РАМТ СНЕ$ 65 
А 


Что и требовалось проверить — коду 65 соответствует символ А. 

Если символьное значение, подставляемое вслед за СОПЕ, со- 
стоит болыше чем из одного символа, функция возвратит код 
первого символа. 


ГРАФИКА 


РЕОТ, ВВАМ/, СЮСЕЕ, СЕ$ 


Оператор РЕМТ за одно элементарное действие — вывод символа 
— воздействует сразу на 64 точки экрана (8х8). Это, конечно же, 
хорошо с точки зрения ускорения процесса вывода символьной 
информации, но хотелось бы иметь возможность «обращаться» и к 
отдельным точкам (пикселям). 

эреснит-Бейсик говорит: «Ножалуйста», — и предоставляет в 
нанше распоряжение оператор РЕОТ. С его помошью можно 
«включить» любой пиксель основного экрана*. Для оператора РЕОТ 
не существует разделения экрана на знакоместа. Для него экран — 
поле высотой 176 и шириной 256 пикселей. Каждый пиксель 
имеет свои координаты, не координаты знакомест в строках и 
столбцах, а графические координаты: 


х — но горизонтали (0...255}, 
у — но вертикали (0...175). 


Начало отсчета системы координат (пиксель с координатами 
х=0, у=0) находится в нижнем левом углу основного экрана. Об- 
ратите внимание на то, что отсчет вертикальной графической 
координаты идет снизу вверх, в отличие от нумерации символьных 
строк, которая производит- 


ся от верха экрана (см. Е 
рис. 3). Основной 


После нолучения некото- — (0,175) (255,175) 


рого представления об уст- 
ройстве графического экра- 
на можно вернуться к опе- 
ратору  РЕОТ. Нетрудно 
предположить, что для рабо- 
ты ему нужны два па- 
раметра — координаты точ- 
ки. Они занисываются че- 
рез запятую после ключево- 
го слова: сначала х, потом у. 


Служебный 
экран 


Рис. 3. Строение графического экрана. 


* 
Операторам, занимающимся графическими построениями, недоступны две 


строки служебного экрана. 
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ЗРЕСТРУМ-БЕЙСИК 


К = примеру, оператор 
РЕОТ 130, 80 высветит точку 
почти по центру экрана. 


Ставя точку за точкой с 
помощью РЬОТ, в принципе, 
можно нарисовать чудесную 
картинку. Попробуйте. Од- 
нако вряд ли у кого-нибудь 
хватит терпения выставить 
более десятка точек. Кое в 
чем поможет сам Бейсик. 
Например, построение от- 
резков и дуг берет на себя 
оператор ОВАМ (от англ. 
рисовать, чертить). 

ОКА\У/ при проведении 
прямой использует лишь два 
параметра: расстояние в 
пикселях по хи по уот некой 
начальной точки до конеч- 
ной точки строящейся ли- 
нии. Следовательно, пара- 
метры ОКАУ\У/ задают только направление и длину отрезка, но не 
устанавливают его начальную точку. Выполнив, например, опера- 
тор ОКАМ/ 127, 87 сразу после включения компьютера, увидим, что 
линия будет проведена к середине экрана от начала координат 
(0, 0}. Следующий оператор, скажем, ОКА\У/ 0, —50 проведет отрезок 
Алиной в 50 пикселей вертикально вниз от конца предыдущей 
линии. Вообще, началом линии для ОКА\/ всегда является послед- 
няя выставленная на экране точка. На- 
глядней и проще всего начальную точку 
можно задать с помощью оператора РЕОТ. 

Если к оператору ОКА\У/ через запятую 
добавить еще один параметр, то на экра- 
не появится дуга. Этот дополнительный 
параметр задает величину угла (в ради- 
анах), который будет образован дугой. 
Знак параметра определяет направление 
построения дуги: положительный — про- 
тив часовой стрелки, отрицательный — 
по часовой. Принцип получения началь- 
ной и конечных точек дуги остается тем 
же, что и при построении отрезка. По- 
пробуем: 


РЕОТ 150, 100 
ОКА\\ —100, 0, Р! 


Получим полуокружность с центром в 
точке (100, 100) и радиусом 50 пикселей. 
С константой Р мы уже сталкивались: 
она подставляет вместо себя число «пи». 
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ЦВЕТ 


Используя конструкцию с РЕОТ и ОКА\М/, 
можно, конечно, построить и полную окруж- 
ность. Но зачем, когда в Бейсике существует 
специально «обученный» для этого оператор 
С№®СТЕ: Его параметры очевидны: коорлина- 
ты центра и радиус окружности. Например, 
нарисуем окружность с центром в середине 
экрана и радиусом 50: 


СЮСЕЕ 127, 87, 50 


Оператор СЮСЁЕ строит окружности до- 
статочно точно, но уж очень медленно. 


Очистить экран от любого изображения 
(как от графики, так и от текста), то есть 
«выключить» все пиксели, можно опе- 
ратором ©$, к описанию которого мы еще 
вернемся. 


ЦВЕТ 


Раскраска изображений 
РАРЕВ, МК, ВОКОЕЮ 


зреснит-Бейсик позволяет раскрашивать экран монитора с 
использованием восьми цветов: черного, синего, красного, фиоле- 
тового, зеленого, голубого, желтого и белого. 


Изображение на экране строится из сочетания включенных и 
выключенных пикселей, причем как одни, так и другие ЗресНит- 
Бейсик позволяет окрашивать в различные цвета. Цвет выключен- 
ных пикселей называется цветом фона, включенных — цветом 
тона. Следовательно, цвет фона — это цвет «пустого» (без изобра- 
жения} экрана, цвет тона — цвет окраски символов или гра- 
фических объектов, выводимых на экран. 


Задаются цвета фона и то- 
на, соответственно, операто- 
рами РАРЕВ (бумага, англ.) и 
№МК (чернила). После каждого 
из них ставится параметр — 
код требуемого цвета: 


— черный, 

— синий, ` 

— красный, 

— фиолетовый, 
зеленый, 

— голубой, 

— желтый, 

— белый. 


яч®льшю-о 
| 
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ЗРЕСТВУМ-БЕЙСИК 


Например, после выполнения оператора 
РАРЕК 6 
знакоместа, в которые осуществляется вывод символов или гра- 
фики, будут окрашиваться в желтый цвет. 

Окрасить же весь основной экран можно, лишь очистив его с 
помощью оператора С+$. Он; выключая пиксели экрана, окра- 
шивает их в текущий (заданный оператором РАРЕЮ) цвет фона. 
При работе в непосредственном режиме С+$ можно заменить по- 
вторным нажатием Ещег. 

После окраски основного экрана становится четко виден бордюр 
— поле по-краям экрана. Бордюр тоже можно окрасить в один из 
восьми цветов. Делается это с помощью оператора ВОВОЕВ. Вы- 
полним: 


ВОЮОЕ® 6 
— и бордюр (так же, как и весь экран) станет желтым. 
После задания цвета тона, например, оператором 
ИМК 1 


все выводимое на экран изображение — символы ли, графика ли 
— все будет окрашиваться в синий цвет. Попробуем: 


РЕМТ "7Х $реснит" 
СКВСЕЕ 127, 87, 50 


На экране синим по желтому булет напечатано 2Х $рескит и 
начерчена окружность (по желтому в том случае, если до этого 
выполнялся предыдущий пример). 


Цветовые эффекты 
ВАСНТ, 1МУЕЮ$Е, РЕА$Н, ОУЕЮ 


Изображение на экране Зрессу может быть не только раскраше- 
но, но и иметь две градации яркости: нормальную и повышенную 
(оператор ВАСНТ). Кроме того, оно может выводиться с инверсией: 
цвет фона меняется на цвет тона, а цвет тона на цвет фона (ИЧУ\УЕВ$Е), 
или сделано мерцающим: с меняющимися через определенный про- 
межуток времени цветами тона и фона (РЕАЗН). Все перечисленные 
операторы используются с одним параметром, принимающим зна- 
чение либо 1 — включение режима, либо 0 — выключение. 

Это элементарно, но на пальцах не объяснишь. Лучше вы- 
нолнить операторы В®АСНТ 1, РЕАЗ$Н 1, №МУЕЮ$Е | и попробовать вы- 
водить на экран текст, задавая различные значения цветов тона и 
фона. 


Обычно, если на экран помещается новое изображение, на- 
пример, в знакоместо впечатывается символ, прежнее изобра- 
жение стирается. Но в Зреснат-Бейсике имеется оператор ОУЕВ, 
после выполнения которого компьютер переходит в режим, позво- 
ляющий накладывать «новое» изображение на «старое». При этом 
точки, в которых изображения совпадают, принимают цвет фона. 
Включение и выключение режима наложения, как и режимов 
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ЦВЕТ 


инверсии и мерцания, задаются, соответственно, значениями 1 и 
0, ставящимися после О\УЕЮ. 

Кроме упомянутых значений, указываемых после ключевых 
слов РАРЕК, МК (0...7) и ВАСНТ, 1МУЕЮЗЕ, РЕАЗН (0 и 1), может исполь- 
зоваться число 8, называемое параметром прозрачности. Напри- 
мер, после выполнения последовательности РАРЕК 8, МК 8, ВАСНТ 8, 
ИЧУЕЮЗЕ 8 и РЕАЗН 8 оператор 


РЕМТ АТ 10,10;"*" 


впечатает звездочку (*+) в 10-й столбец 10-й строки в цветах, ранее 
установленных для этого знакоместа. Если, скажем, в этом знако- 
месте размещался мерцающий символ (РАЗН 1) синего цвета 
(МК 1) на желтом фоне (РАРЕК 6) с повышенной яркостью (ВЕСНТ 1), 
то и звездочка будет выведена в этих же цветах. 

После РАРЕК и МК может стоять также параметр 9. №К 9 предо- 
ставляет компьютеру самостоятельно выбрать цвет тона, который 
контрастен цвету фона: черным по светлому фону (зеленому, 
голубому, желтому и белому} или белым по темному (черному, 
красному, синему и фиолетовому). Таким же образом действует 
РАРЕК 9, устанавливая цвет фона контрастным цвету тона. 


Постоянные и временные атрибуты экрана 


Прежде всего поясним значение нового термина, появившегося 
в заголовке, — атрибуты экрана. Это общее название для цветов 
фона, тона, режимов яркости и мерцания, устанавливаемых для 
каждого знакоместа экрана. Задавая цвета и перечисленные ре- 
жимы, мы говорим, что задаем атрибуты. Теперь поясним, почему 
они бывают постоянные и временные. 

Ло сих пор мы использовали ключевые слова РАРЕЮ, МК, ВАСНТ 
и РЕАЗ$Н как самостоятельные операторы. Их действие распростра- 
нялось на весь экран и длилось до того момента, пока эти операто- 
ры не выполнялись с новыми параметрами. То есть мы работали с 
постоянными атрибутами экрана. & 

Однако часто бывает необходимо напечатать каким-либо цветом 
лишь одно слово или символ, не влияя на окраску последующих, 
то есть не меняя значения постоянных атрибутов. Сделать это 
можно, используя ключевые слова, управляющие цветом, в качест- 
ве параметров оператора РАМТ. 

Записываются они так же, как и АТ и ТАВ — в произвольном 
месте данных, предназначенных для вывода на экран, отделяясь от 
них точками с запятой. К примеру, после выполнения строки 


РАМТ "+"; МК 4; "+"; РАРЕЮ 5; "*ж" 


на экране появятся три звездочки. Цвета фона и тона первой из 
них будет соответствовать ранее определенным постоянным 
атрибутам (если они не были специально заданы, то звездочка 
будет напечатана черным по белому, то есть цветами, устанавлива- 
емыми компьютером сразу после включения питания). Вторая 
звездочка окрасится в зеленый тон, но с тем же фоном. Третья 
пропечатается зеленым по голубому. Установленные в строке вре- 
менные атрибуты, в данном случае цвета тона и фона, действуют 
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только до конца РМТ или до появления в строке новых парамет- 
ров. Если после этого мы вновь зададим РАМТ без параметров 
(РАМТ "+"), то убедимся, что временные атрибуты никак не по- 
влияли на постоянные. 


Ключевые слова !МУЕЮ$Е и ОУЕЮ тоже могут использоваться в 
операторе РАМТ, переключая режим инверсии и совмещения лишь 
на время его работы. 


Все графические построения (точки, линии, дуги, окружности) 
также можно производить не только в постоянных цветах (как до 
сих пор мы делали}, но и во временных. Аля этого операторы, 
задающие атрибуты экрана (ЧК, РАРЕВ и прочие}, ставятся сразу за 
ключевым словом графического оператора и отделяются от Пава 
метров точкой с запятой. Например: 


РОТ 32, 80 
ОВАМИ 32, 0 

ОРАУУИ МК 4; 32, 0 | 

ОВАМИ 32, 0 ты 


а 


В результате выполнения этих операторов на экране высветятся 
три отрезка. Крайние будут окрашены в ностоянный цвет тона 
(черный по умолчанию). Средний — в соответствии с временным 
параметром ИМК — в зеленый. 


Но не все так радужно в королевстве цветной графики 
2Х 5реснит. Проведем по экрану две диагонали: красную и си- 
нюю. Чего проще: 


РЕСЕЫ. 9 
ОРА\МУИ МК 2; 255, 175 
РЕОТ 255, 0 


ОКА\М/И МК 1; —255; 175 


Посмотрев же на экран, замечаем не очень приятный эффект: в 
районе точки пересечения первая проведенная диагональ (крас- 
ная) перекрасилась в синий цвет. 

Происходит это из-за того, что атрибуты экрана (цвета фона и 
тона, яркость и мерцание} в 2Х Зреснит устанавливаются не для 
каждой точки, а целиком для знакоместа — одинаковые атрибуты 
Аля каждой из 64 его точек (8х8). И, естественно, если через 
знакоместо проведена линия с новым цветом тона, то все ранее 
установленные точки в этом знакоместе перекрасятся. Эта особен- 
ность компьютера накладывает ограничения на разнообразие 
окраски изображения: в пределах одного знакоместа невозможно 
использовать более двух цветов. 


Операторы !МУЕВ$Е и ОУЕК также можно использовать и в каче- 
стве параметров графических операторов. Операторы с МУЕРЗЕ 1 
будут честно ставить точки или прочерчивать линии цветом фона, 
с ОУЕК 1 на фоне булут рисовать тоном и, наоборот, на тоне фоном. 
Операторы, в которых одновременно размещены и МУЕВЗЕ 1, и 
ОУЕК 1, не будут менять изображение на экране. 
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Ло сих пор, знакомясь с работой операторов Зреснит-Бейсика, 
мы вводили их в непосредственном режиме, то есть наше требо- 
вание что-либо слелать компьютер выполнял сразу же после на- 
жатия клавинги Е\щет. Аля выполнения в этом режиме слелующего 
оператора нужно опять набирать ключевое слово, параметры и 
опять нажимать Ещег. Если бы компьютер мог работать только так, 
то он ничем принципиально не отличался бы от простейшего 
калькулятора, на котором каждое действие задается и выполняется 
отдельно. 

Именно способность работать по программе, то есть выполнять 
один за другим операторы, расположенные в заданной после- 
довательности, делает компьютер компьютером. Эта последователь- 
ность операторов и называется компьютерной программой. 

Простейший способ заставить компьютер выполнить несколько 
операторов подряд без остановки — это после набора оператора 
поставить двоеточие, затем ввести слелдующий, а закончить после- 
довательность нажатием клавииги Ещ4ег: 


РАМТ "А";: РАМТ "В";: РАМТ "С" ДЕщет] 
АВС 


Однако приведенная строка — еще не программа. Зреснит не 
может запомнить эту последовательность операторов и выполнить 
вновь. Да и не все операторы Бейсика можно записать вот так, в 
одну строчку. Не говоря уж о том, что читать такую последователь- 
ность не очень удобно. 


Программа составляется из множества строк, в каждой из которых 
записан один или несколько операторов. Строкам присваиваются 
«адреса» — номера от 1 лм 9999. При запуске программы строки 
выполняются одна за другой в порядке возрастания номеров. 


Так, приведенная последовательность операторов РАМТ в виде 
программы запишется следующим образом: 
10 РАМТ "А"; 
20 РЕМТ "В"; 
30 РАМТ "С"; 


Набор программы 


Строки программы набираются точно так же, как и операторы в 
непосредственном режиме, только перед первым оператором в 
строке обязательно ставится ее номер. После завершения набора 
нажимается клавиша Ет4ег, но строка не выполняется, а переписы- 
вается в верхнюю часть основного экрана, освобождая место в 
строке редактора для ввода слелдующей. Именно номер в начале 
строки сообщает компьютеру, что набранный оператор или после- 
довательность операторов являются частью программы, и их не 
следует выполнять сразу, а нужно поместить в память компьютера 
Аля хранения. 
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Запуск программы 
Ум 


Запускается программа опе- 
ратором ВМ, вволимым в не- 
посредственном режиме. После 
выполнения нашей первой 
программы на экране увидим 


АВС 
и знакомое нам сообщение 
ОС, 30:1. Смысл его тот же, 


только цифры другие. Надеем- 
ся, понятные — работа законче- 
на на первом операторе строки 
с номером 30. 


КУМ без параметров запускает программу с первой строки (со 
строки с наименыцим номером}. Можно «стартовать» и с любой 
другой, указав ее номер. Например, оператор ЮКУМ 20 запустит 
программу с 20-й строки, и на экране появится лишь часть текста: 


ВС 


Редактирование программы 
ы$Т 


При выполнении программы существенным является лишь по- 
рядок следования номеров строк. Поэтому для удобства последую- 
щего изменения программы (например, добавления новых строк) 
нумерацию производят через 5 или, чаще, через 10 номеров. 
Вставляются строки в программу просто: набирается строка с 
номером большим, чем номер строки, после которой нужно сделать 
вставку, но меньшим, чем номер последующей, и нажимается 
Ет{цег. Введем строки 


15 РЮШМТ "+"; 
25 РЮМТ "* ". 
и наша первая программа приобретет следующий вид: 

10 РАМТ "А"; | 

15 РЮМТ "="; 

20 РАМТ "В": 

25>РЕЮМТ "»": 

30 РЕМТ "С"; 


После ее выполнения (КОМ) на экране появится 
А*В*С 
Допустим, нам потребовалось изменить содержание какой- 
нибуль строки программы (а этим только и приходится заниматься 


при ее отладке). Указать Бейсику строку, которая требует ре- 
лакции, можно, перемещая с помощью курсорных клавиш ©С$/6 и 
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С$/7 значок >, расположенный в тексте программы на основном 
экране между строкой и ее номером. Этот значок называется 
указателем текущей строки и, пока его-«не трогают», указывает на 
последнюю введенную строку (в нашем случае на строку 25). 
Установим указатель на 30-ю строку и нажмем клавиши ©С$/1 
(ЕН). Строка скопируется на служебный экран, туда, где она 
ранее набирамлась и где ее тенерь можно редактировать. Как это 
делается, мы уже описывали (см. стр. 9). Заменим, например, в 
этой строке букву С на О. 


Когда все необходимые изменения в строке произведены, на- 
жмем Ещег. Отредактированная строка перепишется на прежнее 
место (если, конечно, не был изменен ее номер). 

Пока строка находится на редакции (Ещег не нажата}, можно 
еще отказаться от внесенных в нее изменений. Нужно нажать С$/1 
(Еай), и на редактирование булет вызвана строка, в которой в 
данный момент расположен указатель текущей строки. Обратите 
внимание на то, что указатель текущей строки можно перемещать 
и во время редактирования строк. 


Аля удаления строки из программы 
совсем необязательно вызывать ее на 
редакцию и стирать весь ее текст. До- 
статочно ввести ее номер без каких- 
либо операторов. Введем, к примеру, 


10 


— и из программы исчезнет 10-я 
строка — и номера не останется. Про- 
падет с экрана и указатель текущей 
строки (возвращается он с помощью 
клавиш ©С$/б и С$/7). 


И еще одна существенная, но про- 
стая операция, которую необходимо 
освоить Аля успешной отладки прог- 
раммы — вывод листинга, то есть рас- 
печатка на экране фрагментов прог- 
раммы. Это просто необходимо, если 
программа состоит из многих десят- 
ков, а то и сотен строк, которые, есте- 
ственно, невозможно увидеть на экра- 
не сразу все. Начать вывод листинга с 
первой строки программы можно с 
помощью оператора И$Т. После его 
выполнения компьютер представит на 
экране первую страницу листинга. 
Если на ней поместилась не вся прог- 
рамма, то он спросит: $сгой (прокру- 
тить?). Аля продолжения просмотра 
(«прокрутки» экрана} нажимается лю- 
бая клавиша, кроме $расе и С$/$расе. 
Носле нажатия на эти клавиши вывод 
листинга прекращается. 
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Можно попросить компьютер вывести листинг программы, на- 
чиная с любой строки, указав ее номер после ключевого слова, 
например: : 


Ы$Т 20 


Причем на упомянутую строку автоматически будет установлен 
указатель текущей строки. Таким образом, команда М$Т позволяет 
быстро «перебрасывать» указатель в любое место программы. 

Вполне может быть, что номер требуемой строки забылся. Не 
стоит расстраиваться. Если мы и ошибемся, Ы$Т найдет строку с 
ближайшим большим номером и начнет вывод листинга с нее. 


Переменные 
СЕТ 


До сих пор мы работали с числовыми и символьными зна- 
чениями, записанными в явном виде. Результаты действий не 
запоминали, а только выводили на экран монитора. В дальнейшей 
работе эти результаты использоваться не могли. Аля вычисления 
выражения с новыми данными приходилось набирать и выполнять 
новую строку. То есть действовать так, как будто перед нами не 
компьютер, а калькулятор. Но даже в калькуляторах есть такая 
операция, как запоминание числа. Занесенное в память, оно может 
быть извлечено оттуда нажатием одной клавиши и использовано в 
дальнейших расчетах. И конечно же, написание даже самых про- 
стейших компьютерных программ немыслимо без сохранения ис- 
ходных данных и промежуточных результатов. Причем запоминать 
надо не одно, не два числа, а часто сотни и тысячи. И не только 
числа, но и слова — строки символов. 


Бейсик для хранения 
числовых и символьных 
значений в памяти компью- 
тера отводит специальную 
область. Заносятся значения 
туда с помощью ключевого 
слова ЕТ. А для того чтобы 
ничего не перепутать, каж- 
дому Из «сосланных» на 
хранение значений присва- 
ивается собственное имя. 
Делается это так: ы 


СЕТ В=3 


Этой строкой мы попро- 
сили компьютер записать в 
память число 3, а место, ку- 
да записано число, «обоз- 
вать» именем В. Теперь, что- 
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бы извлечь число, нужно просто «позвать» его по имени. На- 
пример, выполним оператор 


РАМТ В 


— и на экране появится цифра 3. Имя можно подставить и в 
выражение. При вычислении значения выражения компьютер, 
наткнувшись на имя, заменит его числом из памяти: 


РЕИМТ (В+15)/В 
6 


Значение, занесенное в память, будет храниться там до тех пор, 
пока мы либо не сбросим (выключим) компьютер, либо не вы- 
полним операторы КУМ или СЁЕАВ (об этом операторе позже), либо 
не запишем под этим же именем другое значение. К примеру, 
выполним: 


ТЕТ В=5 


Именно потому, что записанные в память значения можно в 
любое время изменять, имена, под которыми они хранятся, назы- 
ваются именами переменных. Сейчас мы работали с переменной по 
имени В, или просто — с переменной В. 

Обратите внимание на то, что переменная в языках програм- 
мирования — это нечто другое, чем переменная величина в мате- 
матических уравнениях. С точки зрения математики многие опе- 
рации, производимые с программными переменными, бессмыс- 
ленны, например, вот такая, часто используемая в программи- 
ровании зацись: 


СЕТ В=8В-+1 


Приведенный оператор просит компьютер увеличить на еди- 
ницу содержимое переменной В. 


Переменные, предназначенные для хранения чисел, называют- 
ся числовыми. Имя числовой переменной может состоять из любого 
количества цифр и латинских букв, но не должно начинаться с 
цифры. Его можно записывать и строчными, и прописными бук- 
вами. Пробелы в имени игнорируются. Приведем примеры имен 
числовых переменных: 


А; А!23; ЮиБ; уегу |опд пате; уегу |опд пате 


Аля хранения символьных значений используются, соответст- 
венно, символьные переменные (их иногда также называют строко- 
выми). Имя символьной переменной может состоять только из 
одной буквы и знака $ (доллар). Строчные и прописные буквы в 
имени не различаются. Присвоить символьной переменной зна- 
чение можно с помощью того же ключевого слова (ЕТ: 


10 ТЕТ А$=”ВАЯС” = 


— а извлечь из памяти, подставив имя переменной, например, в 
РАМТ: 


20 РАМТ А$ 
ком 
ВАЗС 
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Символьная переменная может быть приравнена «пустой стро- 
ке», то есть не содержать ни одного символа: 


10 ЕТ А$="" 

20 РЮМТ "жжж"; А$; ДЕ" 
ким 

жж* + 4 


То, что переменная А$ не содержит ни одного символа, хорошо 
видно по отсутствию интервала между символами +**ж и ###. 

Все числовые и символьные функции будут нормально рабо- 
тать, если вместо конкретных значений им «подсовывать» имена 
переменных. Конечно, при условии, что до этого переменная была 
определена, то есть ей ранее уже присвоено какое-либо значение. 
Иначе компьютер выдаст сообщение об ошибке: УапаЫе по! фюипа 
(переменная не найдена). 


Теперь у нас вполне достаточно сведений, чтобы, наконец-то, 
перейти к написанию программ. 

Составим элементарную программу, пересчитывающую некую 
сумму в рублях в доллары. Но ходу ее написания мы будем зна- 
комиться с новыми операторами и функциями Бейсика. 

Рассчитаем сначала, сколько долларов составляет установлен- 
ная нашим государством минимальная зарплата. В момент 
написания этой книги она равнялась 900 рублям в месяц. Введем 
переменные: ЮВиБ, в которую будем заносить сумму в рублях, Во! — 
для ее долларового эквивалента и Киг$ — курс доллара, то есть цена 
одного доллара в рублях (неременную Киуг; пока приравняем к 130, 
что соответствует нынешнему курсу доллара). 


5 РЕМ Программа пересчета рублей в доллары“ 
10 (ЕТ Ки$=130 
50 "ЕТ Ки =900: РАМТ АТ 0,1; "Текущий курс: "; Киг$; " рублей за 
$1" 
70 ТЕТ Ро =ЧТ(РчБ/Кигз*100-0.5)/100: РЕМ Расчет 
75 РЕМТ АТ 1, 1; Руб; " руб. — $"; Во 


Сам расчет предельно прост и умещается в коротенькой строчке 
под номером 70. Операция с умножением на 100, извлечением 
целой части функцией ИМТ (см. стр. 16} и делением на 100 необ- 
ходимы для округления долларовой суммы до центов. Остальные 
строки заняты вводом и выводом информации**. 

Запустив программу, увидим на экране: 


Текущий курс: 139 рублей за $1 
900 руб. — $6.92 


В примерах программ, приведенных в этой книге, используется текст на русском 
языке. Делается это для наглядности, хотя не на всех компьютерах есть возмож- 
ность его набрать. При вводе программ русские слова можно заменить 
английскими, а комментарии просто опустить. 


Если Вы решили отрабатывать все примеры на компьютере и хотите сохранить их 
на магнитной ленте, то загляните в раздел «Работа с магнитофонсм». 


*х 
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Пояснения к тексту программы 
КЕМ 


В 5-й строке «всплыл» новый оператор ВЕМ (от англ. тета — 
пометка). Он сообщает компьютеру, что в этой строке ему делать 
нечего, можно спокойно переходить к выполнению следующей. 
РЕМ можно поставить и после двоеточия в конце любой строки, как 
это сделано в строке 70. Вслед за КРЕМ программист пишет для себя 
или для других программистов комментарии — пояснения, каса- 
ющиеся работы программы. 


Ввод данных с клавиатуры 
во время выполнения программы 
ИЧРИОТ 


Хотя написанная нами программа верно пересчитывает рубли в 
доллары, работать с ней неудобно. Аля перевода другой суммы, да 
еще при постоянно меняющемся курсе, ее надо редактировать: 
изменять числа в строках 10 и 50 и снова запускать. 

В ситуации, когда данные, необходимые для работы программы, 
нужно вводить по ходу ее выполнения, поможет оператор МРИТ. В 
простейшем виде он записывается так: 


10 МРОТ Киг$ 


Натолкнувшись на него, 
компьютер останавливает вы- 
полнение программы, вы- 
ставляет в последней строке 
экрана курсор и ждет, пока 
мы не введем с клавиатуры 
какое-нибудь число. После 
подтверждения ввода клави- 
шей Еег оператор МРОТ за- 
носит введенное число в чис- 
ловую переменную, имя кото- 
рой указано вслед за ключевым словом (в нашем случае в пере- 
менную Куг$), и продолжает выполнение программы. МРОТ не успо- 
коится, пока не получит хоть какое-нибудь число. Если попытаться 
на запрос ничего не набирать, а сразу нажать Ещег, то он укажет, 
что мы не правы — выведет знак вопроса (3). Можно, конечно, 
вместо числа предложить имя другой числовой переменной. Тогда 
переменной, стоящей вслед за МРОТ будет присвоено значение 
набранной переменной, но только, если последняя ранее была 
определена. Иначе программа прервет работу с сообщением об 
ошибке: УапмаЫе по# юипа. 

Вслед за МРОТ может стоять и несколько переменных. В этом 
случае оператор будет запрашивать числа столько раз, сколько 
переменных мы к нему прицепим: 


10 1МРОТ Киг$; РчБ 
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Возможности МРОТ этим не исчерпываются. Кроме ввода дан- 
ных он еще способен частично исполнять обязанности РАМТ — 
выводить на экран текст. Используя это его свойство, мы можем 
заменить строки 10 и 50 нашей программы одной строкой: 


10 МРОТ "Текущий курс (руб. за 1$): "; Кигз; " Сумма (руб.): "; РБ 


Формат записи данных в МРОТ тот же, что и в РЮМТ: с теми же 
кавычками, с теми же знаками препинания. Так же с помошью 
РАРЕК, МК, ВАСНТ, РЕАЗН можно управлять атрибутами, а с по- 
мощью АТ и ТАВ — позицией вывода. 


Переходы 
со то 


Есть еще одно неудобство — нашу программу после каждого 
расчета нужно запускать заново. Избавиться от этого предельно 
просто — стоит только ввести в действие оператор СО ТО. Дослов- 
но он переводится «пошел на» строку с таким-то номером: 


80 СО ТО 10 


Введя эту строку, мы, как говорится, «зациклим» программу: с 
последней строки отошлем компьютер опять к ее началу. Теперь 
без остановки программы можно пересчитать цены хоть всех това- 
ров, выпускаемых в России. Но чтобы каждый раз не вводить курс 
доллара, все же разнесем ввод данных на две строки и переход по 
СО ТО сделаем на строку 35: 


5 РЕМ Программа пересчета рублей в доллары 
10 МРОТ "Текущий курс (руб. за 1$): "; Киг$ 
33 РЕНТ АТ 0,1; "Текущий курс: "; Киг$; " рублей за 1$" 
_ 35 МРОТ " Сумма (руб.): "; ВБ 
70 ТЕТ Бо=МТ(Рч6/Кигз*100+0.5)/100: РЕМ Расчет 
75 РЕМТ АТ 1, 1; КиБ; " руб. — ";"$"; Бо|:" = 
80 СО ТО 35 


Пробелы (10 штук) в конце 75-й строки призваны затирать 
«хвост» выведенной в предыдущем расчете суммы. 
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Останов и продолжение выполнения программы 
ТОР, СОМИМОЕ 


Теперь возникла другая проблема: как остановить программу? 
Не выключать же компьютер. Можно, конечно, сделать сброс, но 
тогда сотрется программа. 

Вообще, выполнение программы практически в любом месте 
можно прервать по команде ВгеаК (клавиши С$/Зрасе). На это 
компьютер отреагирует одним из сообщений: ВКЕАК тю ргодгат 
(прерывание во время выполнения программы) либо ВКЕАК -— 
СОМТ гереа (прерывание - СОМПМОЕ повторит) и после нажатия 
Ещег перейдет в редактор Бейсика. Продолжить выполнение прог- 
раммы можно, введя оператор СОМТИМУЕ. 

Вторую возможность остановить программу дает оператор МРОТ. 
Если на его запрос вместо данных ввести оператор $ТОР, то с 
сообщением $ТОР т МРОТ (стоп при вводе} мы «вывалимся» из 
программы. Как и после ВгеаК, продолжить выполнение програм- 
мы можно по СОМПМАУЕ: вновь выполняется оператор МРОТ. 


Переходы по условию 
Е... ТНЕМ 


Требовать от пользователя, не посвященного в тонкости Бейсика 
(скажем, от продавца валютного магазина), чтобы он «вываливал- 
ся» из программы по ВгеаК или $ТОР, по меньшей мере, несерьез- 
но. Каждая программа должна корректно и просто завершаться. И 
информация о том, как это можно сделать, должна всегла присут- 
ствовать на экране. Например, в таком виде: «Аля выхода из 
программы нажмите такую-то клавишу». 


Поскольку наша программа постоянно ожидает получения ново- 
го числа, то проще всего организовать выход из нее при условии, 
что введено 0 руб. Следовательно, нам необходим оператор, снпо- 
собный проанализировать, равна ли переменная Ву нулю или 
нет. Если Ви равна нулю, то необходимо организовать выход из 
программы, а если ВуЬ не равна нулю — пересчитать сумму в 
доллары и перейти к ожидланию ввода нового числа. Оператор, 
принимающий подобные решения, так и выглядит: 


1+ (если, англ.) <условие> ТНЕМ (тогда, англ.) <действие> 


< Условием» может являться любое выражение. На принятие ре- 
шения: выполнять или не выполнять действие, указанное за ТНЕМ, 
влияет результат вычисления этого выражения. Если значение 
выражения равно нулю, считается, что условие ложно, не равно 
нулю — истанно. 

Чаще всего в качестве условия, стоящего за Ш, используются 
выражения сравнения с использованием знаков «равно» (=), 
«больше» (>), «меньше» (<), «больше или равно» (>=), «неравно» 
(<>), «меныне или равно» (<=). (Обратите внимание на то, что 
знаки >=, <> и <= вводятся нажатием клавиш О, \М/ и Е одно- 
временно с $3). 
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«Действие> — это любой й 


оператор Бейсика либо це- 9=— 

почка операторов, разде- с @- 

ленных двоеточием. При 5% 3 
истинности условия вы- о, 7 А } 
полняться будет весь _ фл 0$ 
«хвост» строки следом за >) 

ТНЕМ. 


В нашем примере усло- 
вием является ЮичбБ=0, а 
действием — оператор 
$ТОР. Программа после 
включения новых строк 
приобретет такой вид: 


10 МРОТ "Текущий курс (руб. за 1$): "; Киг$ 

33 РЮМТ АТ 0,1; "Текущий курс: "; Киг$; " рублей за 1$" 
34 РЮМТ АТ 15, 0; "Для окончания работы введите 0" 

35 МРОТ " Сумма (руб.): "; Вчь 

62 Е РуБ=0 ТНЕМ $ТОР 

70 ТЕТ Ро =МТ(РчБ/Кигз*100+0.5)/100: РЕМ Расчет 

75 РЕМТ АТ 1, 1; ВуБ; " руб. — ";"$"; Оо!:" = 

80 СО ТО 35 


Если условие, стоящее за Е, не выполняется (ложно), то компь- 
ютер, не обращая внимания на ТНЕМ, переходит к следующей 
строке программы. 


Ввод символьных данных 
ИЧРОТ, МРОТ ИМЕ 


Конечная цель программиста — не написание программы, кото- 
рая в принципе как-то работает, а создание такого продукта, кото- 
рый был бы защищен от ошибочных действий пользователя. Что, 
например, произойдет, если при работе с нашей программой ввес- 
ти вместо числа букву (это можно сделать и чисто случайно, 
скажем, перепутав букву О с цифрой 0)? Программа «вывалится», 
но не нормальным образом, а с сообщением об ошибке: УамаЫе по} 
юипа. Должны мы предотвратить подобные ситуации? Конечно. 

Компьютер не будет ругаться на нажатие любой клавииги, если 
попросить оператор МРОТ ожидать ввода символьного значения. 
Сделать это просто — надо подставить в МРОТ вместо числовой 
переменной символьную: 


35 МРОТ “ Сумма (руб.): "; Ю$ 


На то, что ожидается ввод именно символьного значения, поль- 
зователю укажут кавычки, в которые МРОТ заключит курсор и 
вводимый текст. От кавычек на экране можно избавиться, если 
перед символьными переменными, стоящими за МРОТ, ставить 
ключевое слово ИМЕ: 


35 МРОТ "Сумма (руб.): "; ЫМЕ ®$ 
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Хороню, но в конечном итоге нам ведь необходимо получить 
число, а не символы. 

Символьное значение, введенное с помощью МРОТ ЫМЕ, преоб- 
разуем в числовое, используя функцию УАЕ: 


60 ЕТ КчБ=МАЕ Ю$ 


К сожалению, этим проблема защиты от ошибочного ввода не 
решена. Ведь если теперь будет введено не числовое значение, то 
ошибку «выкинет» уже функция УА!. У нас остается один выход — 
проверить каждый введенный символ: является ли он цифрой или 
нет. Сделать это можно, анализируя коды введенных символов. 

Аля начала выделим как подстроку первый символ и определим 
его код: 


40 ТЕТ Сод=СОобЕ ©$(1) 


Далее проверим, попадает ли он в интервал от 48 до 57 (коды, 
соответствующие цифрам от 0 до 9, см. табл. 1 на стр. 100). Если 
символ не цифра, переходим на строку 100: 


42 Е Соа<48 ТНЕМ СО ТО 100 
45 {Е Соа>57 ТНЕМ СО ТО 100 


В 100-й строке мы в дальнейшем организуем обработку 
ошибки. 


Логические операции 
ОК, МОТ, АМО 


В этом месте немного отвлечемся от нашей программы и пос- 
мотрим, как можно две строки с номерами 42 и 45, проверяющие 
различные условия, заменить одной. Этот частный пример введет 
нас в пространство логических операций. 

Логика оперирует с несколькими условиями и помогает делать 
вывод об истинности или ложности их сочетаний. Например, в 
нашей программе необходимо выяснить, выполняется ли хотя бы 
одно из двух условий: Сод<48 ИЛИ Соа>57. Нет ничего проще. 
Нало только русское ИЛИ заменить на английское, то есть на 
логический оператор ОВ: 


Со4<48 ОВ Соа>57 


Это объединенное условие истинно, если верно любое из срав- 
нений. Учитывая, что истинное выражение принимает значение 1, 
а ложное — 0, можно записать: 


х ОКу = 1, если либо х=1, либо у=1, либо и х=1, и у=! 
х ОК у = 0, только если х=0^и у=0 
Проверить, что введенный символ не цифра, можно и другим 
способом: выяснить, не попадает ли его код в промежуток от 48 
до 57, то есть НЕ выполняются ли одновременно два условия: 


Соа>48 И Соа<57. Заменив НЕ на логический оператор МОТ, а И — 
на АМО, запишем: 


МОТ(Соч>48 АМО Сод<57) 
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Выражение в скох.`ах будет истинно только в том случае, если 
истинны оба условия. Так и запишем: 


х АМО у = 1, толь о если х=1 и у=1 
х АМО у =0, если либо х=0, либо у=0, либо х=0 и у=0 
Логический оператор МОТ — это оператор отрицания. Из ис- 
тинного утверждения он делает ложное и, наоборот, из ложного — 
истинное: 


МОТ х = 0, если х=1 
МОТ х = 1, если х=0 


Вот и все логические операции, существующие в Зреснит- 
Бейсике. В качестве примера посмотрим, в каком случае может 
быть истинно утверждение мальчика Вовочки: «Я сегодня буду есть 
мороженое» (доллары пока в сторону). Итак, начнем: 


(«Мама даст денег» 
АМО 
((«будет работать магазин» АМО «там будет мороженое») 
ОК 


(«будет работать киоск» АМО «там будет мороженое»)} 
АМО МОТ 


«пойдет дождь») 
®) 
(«мороженое принесет папа» 
АМО МО 


«мама оставит мороженое в хоподильнике до завтра») 


Вот такая ЛОГИКА. 


Теперь вместо двух строк нашей «валютной» программы, прове- 
ряющих, что введенный символ — цифра, можно записать одну: 


45 (Е СООЕ В$(1)<48 ОВ СОРЕ В $(1)>57 ТНЕМ СО ТО 100 _ 


В этой строке мы избавились от лишней переменной Соч. 
Такую проверку надо организовать для каждого символа пере- 
менной ®$, то есть продолжить: 


46 Е СОГЕ ®$(2)<48 ОР СОБЕ ®$(2)>57 ТНЕМ СО ТО 100 


Однако если кто-нибудь захочет перевести в доллары, скажем, 3 
рубля (ха-ха!), и, следовательно, переменная ®$ будет состоять 
всего из одного символа, то программа в строке 46 «вылетит» по 
ошибке (параметр в сечении превысит пределы допустимого). В 
подобных случаях необходимо сначала определить длину символь- 
ной переменной и выполнить проверку столько раз, сколько сим- 
волов в переменной ®$, то есть организовать цикл. 


Программные циклы 
РОВ, ТО, $ТЕР, МЕХТ 


Введем переменную 1, называемую счетчиком цикла, присвоим 
ей значение 1 и подставим в строку 45 для выделения первого 
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символа переменной — ®${(!). После проверки кода символа увели- 
чим значение { на | и сравним его с длиной переменной №$ 
(предполагается, что ®$ не равна «пустой строке»). Если : еще не 
превысила 1ЕМ В$, то перейдем снова на строку 45, выделим из ®$ 
следующий символ (ведь { увеличилась на 1) и проверим его код: 


40 ЕЕТ =1 
45 1Е СОБЕ ©$(1)<48 ОВ СОБЕ Ю$(1)>57 ТНЕМ СО ТО 100 
48 ГЕТ #=Н++1 


50 {Е 1<=ЕМ $ ТНЕМ СО ТО 45 


Выход из цикла произойдет, когда ! превысит количество симво- 
лов во введенной строке (1>ЁЕМ В$). 

Конструкция, подобная построенному нами циклу, настолько 
часто применяется в программировании, что для ее организации в 
Бейсик введены специальные операторы РОВ и МЕХТ. С их по- 
мощью наш цикл запишется следующим образом: 


40 РОВ 1=1 ТО ЁЕМ ®$ 
45 Е СОРЕ В$(!)<48 ОВ СОРЕ Ю$(!)>57 ТНЕМ СО ТО 100 
50 МЕХТ | 


Следом за ключевым словом РОК следует операция присвоения 
переменной 1! начального значения — эквивалент ЁЕТ 1=1. После 
знака равенства может стоять числовое выражение. Переменная, 
использующаяся в цикле РОК...МЕХТ в качестве счетчика, носит 
специальное название — управляющая переменная цикла. Это обыч- 
ная числовая переменная, но с единственным ограничением: ее 
имя должно состоять из одной буквы. 

За ключевым` словом ТО указывается конечное значение перемен- 
ной цикла (число либо числовое выражение). Сравнение перемен- 
ной цикла и предельного значения осуществляет оператор МЕХТ, 
который ставится в конце цикла с указанной вслед за ним управ- 
ляющей переменной. Строка с МЕХТ {аналогична прежним строкам 


37 


$РЕСТЕУМ-БЕЙСИК 


48 и 50. МЕХТ увеличивает переменную цикла и сравнивает ее с 
предельным значением. Если значение переменной цикла пре- 
высило конечное значение, то выполнение программы продолжа- 
ется с оператора, следующего за МЕХТ. Иначе делается еще один 
«виток»: повторяются все операторы после РОЮ . 

В нашем примере переменная цикла с каждым проходом уве- 
личивается на 1, но значение шага цикла можно варьировать, введя 
ключевое слово $ТЕР и указав за ним значение, на которое следует 
увеличивать переменную цикла при выполнении оператора МЕХТ. 


Строку 40 можно записать и так: 
40 РОВ 1=1 ТО ТЕМ ®$ $ТЕР 1 


Правильность набора нужно проверить не только при вводе 
суммы, но и при вводе значения курса доллара. Придется ор- 
ганизовать еще один цикл, подобный уже описанному. Включим в 
программу и строку 100, выволящую сообщение о допущенной 
ошибке, и строку 105, «отсылающую» к строкам с оператором 
ИЧРОТ, в которых была допущена ошибка ввода. Номер строки, на 
которую следует перейти, заносится в переменную НМ. 


5 КЕМ Программа пересчета рублей в доллары 
10 МРОТ "Текущий курс (руб. за 1$): "; ИМЕ К$ 
13 1Е ЕЕМ К$=0 ТНЕМ СО ТО 10 
15 РОК 1=1 ТО ЕЕМ К$ 
20 Е СОРЕ К$(:)<48 ОВ СОБЕ К$(!) >57 ТНЕМ ЕТ М=10: СО ТО 100 
25 МЕХТ ! 
30 ЕТ Кигз=МАЁ К$ 
33 РЕМТ АТ 0,1; “Текущий курс: "; Кигз; " рублей за 1$" 
34 РАМТ АТ 15, 0; "Для окончания работы введите 0" 
35 МРОТ “Сумма (руб.): "; ЫМЕ ®$ 
37 Е 1ЕМ ®$=0 ТНЕМ СО ТО 35 
40 РОК 1=1 ТО ЕЕМ 8$ 
45 Е СОБЕ ®$(!)<48 ОК СОРЕ ®$(!) >57 ТНЕМ ЕТ М=10: СО ТО 100 
50 МЕХТ | 
60 ТЕТ КиуБ=\УАЕ К$ 
65. 1Е КиБ=0 ТНЕМ $ТОР 
70 ТЕТ Ро|-=МТ(ВиЬ/Кигз*100+0.5)/100: РЕМ Расчет 
75 РАМТ АТ 1, 1; ВуБ; " руб. —";"$"; Бо|:" 
80 СО ТО 35 
100 РАМТ АТ 10, 0;"Извините. Вы ошиблись в наборе." 
101 РАЦЗЕ 50 
103 РЕМТ АТ 10, 0;" = 
105 СО ТОМ 


Вот теперь компьютер прервет выполнение программы только 
тогда, когда мы введем сумму 0 руб. (либо оператор $ТОР). При 
ошибочном вводе компьютер извинится и предложит повторить 
набор. 

Строки 13 и 37 предохраняют от ввода «пустой строки», то есть 
от нажатия Ещег без ввода символов. Если их пропустить, то в 
строках 30 и 60 программа «вылетит» но ошибке, не сумев вы- 
полнить УАЁ от «пустой строки». 
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Пауза 
РАЦЗЕ 


В строке 101 программы использован оператор РАЦ$Е. Он при- 
останавливает выполнение программы. Длительность паузы зада- 
ется параметром оператора в 1/50 долях секунды. Оператор 
РАЦЗЕ 0 задает бесконечную паузу. Прервать паузу можно и рань- 
ше установленного срока, нажав любую клавищу. 

В нашей программе пауза нужна для того, чтобы пользователь 
успел прочитать сообщение об ошибке. После чего сообщение 
затирается пробелами (строка 103). 


Опрос клавиатуры 
ИЧКЕУ$ 


Есть еще одна возможность сделать нашу программу более при- 
ятной в общении. При выходе из программы принято запрашивать 
подтверждение желания пользователя закончить работу. Ведь воз- 
можна ситуация, когда на запрос случайно будет введен ноль. 
Программа прервется, хотя мы этого и не хотели. 


Обычно. при необходи- 
мости запросить подтвержде- 
ние какого-либо действия, 
программу «зацикливают» 
на опросе клавиатуры. Реше- 
ние «что делать» принимает- 
ся в зависимости от того, ка- 
кая нажимается клавиша. 
Для опроса клавиатуры при- 
меняется функция ШМКЕУ$. 
Она не требует аргумента и 
возвращает символ, соответ- 
ствующий клавише, нажатой 
в данный момент. Если ника- 
кая клавиша не была нажата, 
функция возвращает значе- 
ние «пустая строка». 


Без предисловий напишем 
необходимый нам фрагмент 
программы: 


120 РЕМТ АТ 10, 5; "Вы действительно хотите закончить работу? У/М 
(Да/Нет)" 

140 Е 1МКЕУ$ ="" ТНЕМ СО ТО 140 

145 {Е 1\МКЕУ$="У" ОВ МКЕУ$="у" ТНЕМ $ТОР 

150 С15$: СО ТО 5 


Пока никакая клавиша не нажата, программа «зациклена» на 
строке 140. Если нажата клавиша У (с Сар$ ЗЫ или без нее), 
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программа останавливается. По любой другой клавише осуществ- 
ляется переход к началу программы. 


Звук 
ВЕЕР 


Никогда нелишне украсить программу одной-двумя музыкаль- 
ными фразами. 

Зреснит-Бейсик не позволяет создать многоголосое музыкаль- 
ное сопровождение, но «насвистеть» мелодию сумеет. Для этого 
имеется специальный оператор ВЕЕР. Наберем ключевое слово 
ВЕЕР, вслед за ним через запятую два числа, скажем, 1 и 0: 


ВЕЕР 1. 0 


В течение одной секунды мы 
будем слышать звук с частотой, 
соответствующей ноте ДО пер- 
вой октавы. Меняя первое 
число, можно регулировать 
продолжительность звучания 
ноты (значение задается в се- 
кундах). Второе число опреде- 
ляет высоту звука: увеличение 
числа на 1 соответствует пере- 
ходу на пол тона выше, умень- 
нтение на 1 — на пол тона ни- 
же. Аля поднятия ноты на окта- 
ву ко второму параметру ВЕЕР 
следует прибавить 12. 


Указанный принцип отсчета параметра ВЕЕР не точен: высоты 
нот при его использовании не будут совпадать с принятыми в 
музыке. Чтобы не травмировать слух окружающих, необходимо 
использовать более точные параметры. На рис. 4 приведено точное 
соответствие значений второго параметра оператора ВЕЕР нотам 
первой октавы. 


Аля проигрывания мелодии, естественно, нужно написать прог- 
раммку, состоящую из последовательности ВЕЕР. Вот как, к приме- 


= 
РЕ МИ ФА соль ля си ДО 
(0) (2.039) (3.86) (4.98) (7.02) (8.84) (10.88) (12) 


Рис. 4. Точные параметры ВЕЕР для средней октавы. 


ПРОГРАММИРОВАНИЕ 


ру, занишется фрагментик из популярной когда-то песни квартета 
АВВА «Мопеу, топеу...»: 


10 ВЕЕР 0.15,7.02: ВЕЕР 0.15,8.84: ВЕЕР 0.15,10.88 
20 ВЕЕР 0.15,7.02: ВЕЕР 0.15,10.88: ВЕЕР 0.75,8.84 
30 ВЕЕР 0.15,8.84: ВЕЕР 0.15,8.84: ВЕЕР 0.15,10.88 
40 ВЕЕР 0.3,10.88: ВЕЕР 0.6,7.02 


Конечно, мы не стали бы занимать место под эту примитивней- 
пгую программу, если бы не задались целью показать, как ее 
можно модифицировать с помощью какого-нибудь, еще не изучен- 
ного нами средства. 


Массивы 
ОМ 


Первое, что приходит на ум при взгляде на длинную цепочку 
однотипных операторов ВЕЕР, — это написать цикл типа: 


10 РОК 1=1 ТО 11 
29 ВЕЕР Т, Н 
30 МЕХТ ! 


Правда, в таком виде программка десять раз проиграет одну и ту 
же ноту (длительностью — Ти высотой тона — Н). Надо каким-то 
образом менять параметры ВЕЕР при «прогоне» цикла, то есть 
необходимо организовать ряд (набор) переменных и уметь вы- 
бирать из этой последовательности нужную, указывая ее порядко- 
вый номер. Тогда можно будет в первую переменную одной из 
последовательностей (назовем ее Т(1)) записать длительность зву- 
чания первой ноты, во вторую (Т(2)) — длительность второй ноты и 
т. А. Во вторую последовательность Н(!) занести одно за другим 
значения высот нот. Тогда цикл можно было бы записать следу- 
юшим образом: 


10 РОВ #=1 ТО 11 
20 ВЕЕР Т({), Н(7) 
30 МЕХТ ; 


Такие последовательности переменных, имеющих одно имя и 
отличающихся номером (индексом). называются массивами. Пере- 
менные, входящие в массив (элементы массива или индексирован- 
ные переменные), можно применять как и обычные неременные. 
Только запись у них немного другая, да имя должно состоять только 
из одной буквы. И, конечно, у них есть огромное преимущество по 
сравнению с обычными переменными — их можно обрабатывать 
одним оператором в цикле, меняя индекс. 


Перед применением массива его надо задать — определить имя 
и количество элементов в нем. Делается это так: пишется ключевое 
слово ОМ, а за ним ставятся имя и, в скобках, размерность 
массива: 


5 М 1(11): БМ Н(1) 
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Мы написали «размерность», поскольку массивы могут быть не 
только одномерными (с одним индексом), но и многомерными (с 
любым количеством индексов). В этом случае принято говорить о 
массивах с несколькими измерениями. Например, массив, задавае- 
мый строкой ПМ А(5, 10), двумерный. Он состоит из 50 (5х10) 
индексированных переменных. Для большей наглядности их мож- 
но мысленно расположить в виде таблицы с 5 строками и 10 
столбцами: 


А(1,1) А(1,2) ... (1,10) 
А(2.1) А(2,2)... А(2,10) 


А(5,1) А(5,2) ... А(5,10) 


Обращаться с элементами этого массива можно так же, как и с 
элементами одномерного: указывай «координаты» переменной в 
таблице (номер строки и номер столбца) и работай, как с обычной 
переменной: присваивай значения с помощью РГЕТ, вставляй в 
выражения и т. д. 

Для обработки всего массива потребуется уже не один, а два 
цикла — один должен быть «вложен» в другой. Вот, например, как 
будет выглядеть программа, присваивающая индексированным 
переменным значения, соответствующие их индексам, и распеча- 
тывающая массив на экране в виде таблицы: 


10 ГМ А(5,10) 

20 РОВ =1 ТО 5 

30 РОВ }=1 ТО 10 

40 ТЕТ А(;)=10+Н+}; РАМТ АТ №2, #3; А(1,]) 
50 МЕХТ | 

50 МЕХТ ! 


Массивы могут быть составлены и из символьных переменных. 
Массив, заланный строкой Г/М $$(10, 5), может рассматриваться 
либо как одномерный массив, состоящий из 10 символьных пере- 
менных длиной по 5 символов каждая: $$(1)...5$(10), либо как лву- 
мерный массив из 50 переменных длиной в один символ: 
$$(1,1)...5$(10,5). 


Однако мы увлеклись описанием различных массивов. Пора 
вернуться к нашей музыкальной программке. Кстати, ведь ее мож- 
но и модернизировать: вместо двух одномерных массивов Т() и Н() 
организовать один двумерный. Это напрашивается само собой, 
ведь по отдельности эти два массива не имеют смысла: 


5 М М(11, 2) 

10 РОВ +=1 ТО 11 

20 ВЕЕР М((, 1), МС, 2) 
30 МЕХТ } 


Все это хорошо, но только при условии, что каким-то образом 
элементам массива булут присвоены значения длительности и 
высоты нот. Если пойти прямым путем и написать 20 операторов 
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СЕТ, то мы не только ничего не выгадаем, но, наоборот, сильно 
увеличим длину программы. Представьте себе конструкцию: 


СЕТ М(1,1)=1: СЕТ М(,2)=2: БЕТ М(2,1)=3 
И Т. А. АО 
БЕТ М(11,2)=22 


Проще было бы оставить 11 операторов ВЕЕР. 


Данные в программе 
ОАТА, КЕАО, РЕЗТОЮЕ 


Разработчики Бейсика позаботились о нас и включили в него 
удобное средство для хранения и загрузки данных в переменные. 
Не тех данных, которые вводит в программу пользователь с по- 
мощью оператора МРОТ, а данных, закладываемых программистом 
при ее написании. Например, параметров для операторов ВЕЕР. 

Делается это просто: пишется ключевое слово ОАТА, а за ним 
через запятую в нужном порядке размещаются данные. Парамет- 
ры нашей мелодии (длительности и высоты нот) запишутся так: 


200 ОАТА 0.15, 7.02, 0.15, 8.84, 0.15, 10.88, 0.15, 7.02, 0.15, 10.88, 
0.75, 8.84, 0.15, 8.84, 0.15, 8.84, 0.15, 10.88, 0.3, 10.88, 0.6, 7.02 


Данные можно разместить как за одним оператором РАТА, так и 
распределить между несколькими, то есть разбить строку 200 на 
две, три и более строк: 


200 ОАТА 0.15, 7.02, 0.15, 8.84, 0.15, 10.88, 0.15, 7.02, 0.15, 10.88, 
0.75, 8.84 | 
210 ОАТА 0.15, 8.84, 0.15, 8.84, 0.15, 10.88, 0.3, 10.88, 0.6, 7.02 


Оператор РАТА можно располагать в любом месте программы. 
Компьютер игнорирует его и переходит к выполнению следующей 
строки. Чаще всего данные помещают за основным текстом прог- 
раммы, чтобы не затруднять ее чтение. 

Как только компьютер встретит оператор ВЕАО с одной или 
более (через запятую) стоящими за ним переменными, он момен- 
тально отыщет строку с ОАТА и загрузит в эти переменные данные 
из ОРАТА. Например: 


РЕАО Т, Н: РАМТ Т;" ";Н 
9.15 7.02 


Первый попавшийся по тексту оператор ВЕАО заносит в пере- 
менные порцию данных из первого встреченного в программе 
оператора ВАТА. Следующие операторы РВЕАВ продолжают послело- 
вательное считывание. То есть, повторив предыдущую строку, мы 
получим уже другой результат: 


РЕАО Т, Н: РАМТ Т;" ";Н 
8.15 8.84 


Следует особо следить за тем, чтобы количество считываний не 
превышало количество перечисленных за операторами ОАТА дан- 
ных. Иначе на экране появится сообщение об ошибке: Епа о{ аафа. 


43 


ЗРЕСТКУМ-БЕЙСИК 


Поскольку значения, указываемые за операторами ВАТА, могут 
быть как числовыми, так и символьными, то необходимо также 
следить за порядком их занесения в переменные. Числовые дан- 
ные должны считываться в числовые переменные, символьные — 
в символьные. 

Теперь, используя оператор ВЕАО, мы можем изящно загрузить 
параметры мелодии из ОАТА в массив №(): 


10 РОВ ==1 ТО 11 
20 РОВ |=! ТО 2 
30 РЕАВ М(;, |) 
40 МЕХТ | 

50 МЕХТ | 


Правда, получилось, что в компьютере параметры нашей ме- 
лодии хранятся в двух местах: и в тексте самой программы (в 
строке за ВАТА), и в массиве. Это нерационально, и от последнего, 
наверное, придется отказаться*. 


Используя способность КЕАО последовательно считывать дан- 
ные, можно обойтись лишь двумя переменными. Надо только сов- 
местить процесс считывания и проигрывания: 


300 РОК 1#=1 ТО 11 
310 РЕАОТ, Н 
320 ВЕЕР Т, Н 

330 МЕХТ 1 


Теперь эти строки можно использовать в программе. 

А если захочется, чтобы мелодия звучала в нескольких местах 
программы? Переписать еще раз цикл с КЕАО и ВЕЕР, конечно, не 
представит труда, но как быть с данными? Ведь мы их уже считали. 
Не дублировать же и их: 

Специально для того, чтобы иметь возможность многократно 
считывать информацию, записанную в ВАТА, в Бейсик введен 
оператор ВЕЗТОВЕ. Он указывает компьютеру, что следующему за 
ним оператору ВЕАО необходимо считывать данные опять из перво- 
го ВРАТА. 

Поставив после КЕЗТОВЕ номер строки, в которой расположен 
какой-либо промежуточный оператор ВАТА, можно повторное счи- 
тывание начать с него. Таким образом, в нашем примере можно 
организовать проигрывание музыкальной фразы с любого места. 
Надо только не забыть изменить конечное значение управляющей 
переменной цикла: 


350 КЕЗТОКЕ 210 
360 РОК 1=1 ТО 5 
370 КЕАОТ, Н 
380 ВЕЕР Т, Н 
390 МЕХТ | 


Хотя и не следовало бы, учитывая возможность записи и загрузки массивов на 
магнитную ленту отдельно от основной программы, что бывает очень удобно. К 
этому вопросу мы еще вернемся в разделе, посвященном записи и загрузке 
информации (см. стр. 49). 


ПРОГРАММИРОВАНИЕ 


Подпрограммы 
СО $58, РЕТУВМ 


Можно еще как-то смириться с повтором фрагмента программы 
длиной в несколько строчек, но довольно часто приходится исполь- 
зовать по многу раз программные блоки, состоящие, скажем, из 
десятков строк. Кому не лень, пусть набирает эти строки несколько 
раз, но уважающий себя программист в такой ситуации, не заду- 
мываясь, организует повторение программного фрагмента как вы- 
зов подпрограммы. В то место программы, где необходимо использо- 
вать ранее написанный блок, он вставит строку 


7 СО 538 290 


— что означает: перейти к подпрограмме, расположенной, начиная 
со строки 290. То же самое сделал бы и оператор СО ТО, но с 
существенной оговоркой: после выполнения подпрограммы ком- 
пьютер должен вернуться к оператору, следующему за СО $38. 
Дать понять компьютеру, что подпрограмма закончена и пора 
возвращаться, необходимо с помощью оператора ВЕТУВМ: 


280 КЕМ Подпрограмма для проигрывания мелодии 
290 КЕЗТОКЕ 

300 РОК 1=1 ТО 10 

310 РЕАО Т, Н 

320 ВЕЕР Т, Н 

330 МЕХТ 1 

340 ВЕТОУЮМ 


Вот так будет выглядеть музыкальная подпрограмма. Вызов же 
ее мы уже оформили (СО $38 290). 

Эту подпрограмму можно сделать более универсальной, введя в 
нее две переменные: М№Вез{ — номер строки оператора ОАТА, на- 
чиная с которого нужно считывать данные для проигрывания 
фрагмента мелодии, и СоВ — количество нот в фрагменте. Сама 
подпрограмма и ее вызов будут выглядеть так: 


6 ТЕТ МРез{=200: ВЕТ СоВ=11 
7 СО $3В 280 


77 ТЕТ МРез{=210: [ЕТ СоВ=5: СО ЦВ 280 
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280 КЕМ Подпрограмма проигрывания мелодии и ее фрагментов 
290 КЕЗТОКЕ М®ез 

300 РОЮ 1=1 ТО СоВ 

310 РЕАОТ, Н 

320 ВЕЕР Т, Н 

330 1: МКЕУ$ <>"" ТНЕМ СО ТО 350 

340 МЕХТ 1 

350 КВЕТУРМ 


В 330 строку мы включили процедуру выхода из подпрограммы 
при удержании любой клавиши. Пользователь должен иметь воз- 
можность в любой момент прервать мелодию и приступить (вер- 
нуться} к работе с программой. 

При написании сложной по структуре программы бывает по- 
лезно оформлять подпрограммами и неповторяющиеся ее части. 
Такую программу легче читать и отлаживать. 


РАБОТА С МАГНИТОФОНОМ 


Запись программ 
$А\УЕ 


Написанная программа будет сохраняться в памяти компьютера 
до тех пор, пока мы его не выключим. Но для нас важно, чтобы ею 
можно было пользоваться и завтра, и послезавтра. Должен быть 
некий способ сохранения программ с возможностью в последую- 
щем быстрой загрузки их в память компьютера. Самый простой 
способ — запись на магнитную ленту обычного магнитофона (как 
кассетного, так и катушечного). То, что создается на магнитной 
ленте при записи туда программы, называется файлом. 

Подключим магнитофон к специальному гнезду компьютера, 
наберем ключевое слово $АУЕ, а вслед за ним заключенное в 
кавычки имя файла с программой. Имя придумаем сами, помня 
лишь о том, что оно не должно содержать более десяти символов, но 
и менее одного. Например: 


ЗАУЕ "РОШЬАК" 
На ввод этого оператора компьютер откликнется сообщением: 


З+аг{ фаре, еп рге$$ апу Кеу. 


— то есть попросит включить магнитофон на запись” и нажать 
любую клавишу на компьютере. После этого компьютер начнет 
«нгипеть», а по бордюру побегут цветные полоски — значит, 
информация записывается. 

Но окончании записи появится стандартное сообщение: 


6 ок 


Обеспечение надежной записи и считывания информации с магнитной ленты — 
зто тема отдельного разговора. Здесь же посоветуем только устанавливать уро- 
вень записи почти на максимум. 


РАБОТА С МАГНИТОФОНОМ 


Можно записать программу на магнитофон таким образом, что- 
бы носле загрузки для ее запуска не требовалось выполнения 
оператора КИМ. А в этом действительно есть необходимость. Ведь 
наша программа должна быть рассчитана на непросвещенного 
пользователя, от которого грех требовать выполнения даже такого 
элементарного действия, как запуск программы. 

Для обеспечения автоматического старта при загрузке програм- 
мы (автостарта) к оператору $АУЕ нужно добавить ключевое 
слово ЫМЕ с указанием строки старта: 


5А\УЕ "ООШЬАЮ”" ЫМЕ 1 


Мы задали автостарт с первой строки, чем обеспечили выпол- 
нение программы с самого начала. Подставив другой номер, мож- 
но задать автостарт с любой строки программы. 


Проверка правильности записи программы 
УЕЮЕРУ 


Бейсик 7.Х ЗресНит позволя- 
ет после записи программы на 
магнитофон убедиться в без- 
ошибочности проведения этой 
операции. Перемотаем магнит- 
ную ленту в начало записанного 
нами файла, наберем оператор 


УЕЮРУ "ООШАЮ" 


— включим магнитофон на вос- 
произведение и нажмем Ещег. 
Когда компьютер встретит на 
ленте файл с указанным име- 
нем, он начнет сравнивать его с программой, записанной в его 
памяти. Если тексты программы в памяти и на ленте совпадают, то 
выдается сообщение 0 ОК, увидев которое можно вздохнуть спокой- 
но и выключить компьютер. 

Бсли же появится надпись Таре юа4тд еггог, значит, запись не 
удалась и. нужно повторить ее еще раз*. 


Загрузка программы 
ГОАБ 


Сохраненную на ленте программу (файл) загрузить в память 
компьютера после некоторой тренировки достаточно просто. Вы- 
полним оператор 


ГОАВ "РОЬЬАЮ” 


Срыв записи может происходить вследствие дефектов ленты, недостаточного 
(редко — избыточного) уровня записи, плохой настройки магнитной головки, 
неисправности соответствующих узлов компьютера или магнитофона ит. д. 
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= не забыв предвари- 
тельно включить магни- 
тофон на воспроизведе- 
ние. Если, просматривая 
ленту, компьютер встре- 
тит файл с указанным 
именем, то он без лишних 
вопросов загрузит его к 
себе в память. При ус- 
пешном завершении про- 
цесса на экране появится 
соответствующее сообще- 
ние или  загруженная 
программа будет за- 
пущена (если она была 
сохранена оператором 
ЗАУЕ ИМЕ). 


Когда имя программы точно не известно, его можно и 
не указывать, заменив «пустой строкой» — двумя кавыч- 
ками без текста: 


ГОАВ пи 


Выполняя этот оператор, компьютер загрузит первую 
встретившуюся на ленте бейсик-программу. 


Подгрузка программ 
МЕЮСЕ 


После загрузки новой программы ранее находившая- 
ся в памяти компьютера программа бесследно исчезает. 
Но можно загрузить вторую программу и не тронув 
старой, из двух программ сделать одну. Если в памяти 
компьютера находится наша программа "ООЧАК", а на 
ленте имеется программа "РКОС", то после ее подгрузки 
оператором 


МЕВСЕ "РВОС”" 
в листинге можно обнаружить строки обеих программ. 


О КОАБ 
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При слиянии программ следует особо следить за тем, чтобы в них 
не было строк с совпалающими номерами. Иначе строки ранее за- 
груженной программы ("РОЁАЮ") булут попросту заменены на 
строки новой ("РЮОС") с совпадающими номерами. Та же участь 
ожидает и одноименные переменные. 


Запись и загрузка массивов 
ЗАУЕ...РАТА, ГОАО...РАТА 


В своей «валютной» программе мы отказались от использовавия 
массива для хранения параметров мелодии. Если бы мы этого не 
сделали, то нам мог бы пригодиться оператор $А\УЕ с ключевым 
словом РАТА. С его помощью можно сохранять массивы отдельно 
от программы, что позволяет существенно сократить ее размер. 
Ведь после того, как однажды при наладке программы рассчитаны 
или считаны из оператора ВАТА значения элементов массива и он 
сохранен на магнитной ленте, часть программы, делающая расчет 
или считывание, может быть со спокойной совестью удалена. 

Более того, возможность сохранения массивов отдельно от прог- 
раммы позволяет, в зависимости от желания пользователя, варь- 
ировать ее функции, подгружая одни или другие файлы с мас- 
сивами. Например, при загрузке нашей программы можно было 
бы попросить пользователя по своему усмотрению выбрать музы- 
кальное сопровождение программы. Аля этого следовало бы при 
написании программы подготовить и сохранить на магнитной 
ленте несколько массивов с параметрами различных мелодий: 


Сам процесс записи массива ничем не отличается от записи 
всей программы, только после имени файла нужно записать клю- 
чевое слово ВАТА, а после него имя массива с двумя пустыми 
скобками: 


ЗАУЕ "МЕГОО" РАТА М() 


Соответственно, считывание массива производится оператором 
ГОАВ "МЕЕОБ" РАТА М() 


Правильность записи массива можно проверить оператором 
УЕЕРУ "МЕГОО" ОАТА М() 


Запись и загрузка экранного изображения 
ЗАУЕ...ЗСВЕЕМ$, ГОАО...5СВЕЕМ$, УЕРРУ...5СВЕЕМ$ 


Сохранить на магнитной ленте можно и картинку, изображен- 
ную на экране, записав ее на ленту с помощью оператора 


ЗАУЕ "РСТУЮЕ" $СВЕЕМ$ 
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После чего, вставив в программу строку: 
5 ГОАО "РСТУВЕ" $СВЕЕМ$ 


— можно (если не выключать магнитофон после загрузки програм- 
мы) загрузить картинку с ленты прямо на экран. Аля этого надо 
поместить на ленте файл с картинкой вслед за программным 
файлом. 

Лучше написать специальный загрузочный модуль — коротень- 
кую программку, которая должна загрузиться и запуститься пер- 
вой и обеспечить последовательную загрузку сначала заставки 
(чтобы скрасить ожидание), потом основного текста программы. 


В нашем случае программа-загрузчик может выглядеть так: 
5 ГОАО "РСТУВЕ" $СКЕЕМ$ 
10 ГОАБ "РОГАВ”" 


Запись экранного изображения можно проверить на отсутствие 
ошибок оператором 


УЕЮРУ "РКТУЮЕ" $СКЕЕМ$ 


Запись и загрузка содержимого областей памяти 
ЗАУЕ...СОБЕ, ОАР...СОБЕ, УЕЮЕУ...СООЕ 


Сохранить на магнитной ленте экранное изображение можно и 
другим способом — как область памяти: 


ЗАУЕ "РСТИУВЕ” СОПЕ 16384, 6912 


Приведенный оператор запишет на ленту содержимое области 
памяти, начиная с адреса* 16384 (первый параметр после ключе- 
вого слова СОГПЕ) длиной в 6912 байт^* (второй параметр). Именно 
в этой области памяти хранится информация об экранном изобра- 
жении. 

Таким же образом, указывая начальный адрес и размер в бай- 
тах, можно скопировать на магнитную ленту любую область 
памяти компьютера. После чего загрузить ее обычным образом, 
только указав компьютеру, что следует ожидать блок кодов: 


ГОАВ "РСТУВЕ" СОБЕ 


Если после СООЕ не стоит никаких параметров, то блок кодов 
загрузится в то место, с которого его записывали. Но можно и 
изменить адрес начала области памяти, куда должна 
производиться загрузка блока, и указать количество загружаемых 
байт: 


ГОАБ "РСТОУКЕ" СОПЕ 16384, 6912 


* 
Что такое адрес в памяти, см. на стр. 60. 


*х 
Напомним, байтом называется восьмиразрядное двоичное число. 
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Запись блока кодов можно проверить на отсутствие ошибок 
оператором 


УЕЮРУ "РСТОКЕ" СОГЕ 16384, 6912 


РАБОТА С ПРИНТЕРОМ _ 


РАМТ, НАТ 


ГХ бреснит с подключенным к нему принтером открывает 
перед программистом новые горизонты. 

Во-первых, намного упрощается отладка больших программ. 
Ведь с помощью оператора НА$Т (аналогичного $Т) можно вы- 
вести листинг на принтер и, уже не уткнувшись в экран, а акку- 
ратно разложив перед собой листки с текстом программы, 
разбираться: что, куда и как. 

Во-вторых, имея принтер, результаты выполнения собственно- 
ручно написанных программ можно не только наблюдать на экра- 
не монитора, но и получать материальный продукт их работы в 
виде распечаток. Так, например, при работе с нашей «долларовой» 
программой можно автоматически распечатывать ведомость расче- 
тов. Аля этого потребуется лишь добавить в программу несколько 
строчек: 


1 1ЕТ МРЕ! 
2 МРОТ "Введите сегодняшнее чиспо "; ИМЕ 0$; 
3 ЕРЕНТ "Ведомость на "; 0$ 


76 ЕРЕАТ МР:;” "_; ЮиБ; " —"; Оо; "$ "; 
77 ГЕТ МР=МР-+1 


В переменной МР хранится номер очередного вычисления. 


С помощью оператора СОРУ на принтере можно получить и 
целиком копию экрана. Причем безразлично, что в этот момент 
находится на экране — текст или графическая картинка. 

При отключенном принтере операторы Н5$Т, ЕРЮМТ и СОРУ игно- 


рируются. Печать всегла можно остановить нажатием ВтгеаК 
(С5$/$расе}. 


Как компьютер общается с принтером, на какие управляющие 
символы и ключевые слова тот реагирует, зависит от многих 
причин. В основном, от специальной подпрограммы (драйвера), 
обслуживающей принтер. Тут уж кто как устроится. 
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О ЧЕМ ЕЩЕ МОЖНО РАССКАЗАТЬ 


В этом разделе мы дадим информацию, без которой наш рассказ 
был бы неполным. 


Экспоненциальная форма записи чисел 


Кроме обычной формы представления чисел Зрессу понимает и 
экспоненциальную, записывая степень через букву Е. Например, 
числа 5,5-10°, 2,3.10-1 запишутся следующим образом: 


РЕМТ 5.5Е5 
5590009 


РАМТ 2.3Е-—1 
$9.23 
Оператор РЮМТ при расчетах выводит результат не более чем с 


8 значащими цифрами. Причем и те не всегда точны, даже при 
обращении с целыми числами. Например, выполним: 


РАМТ 1Е!0+1—1Е10: РАМТ 1Е!10—1Е! 0+1 
$ 
1 


Сравнение чисел 


Сравнение чисел может использоваться не только как условие в 
операторе ...ТНЕМ, но и при обычных математических расчетах. 
Например, попросим РАМТ вывести результат выражений, в кото- 
рых сравниваются два числа: 


РАМТ 5<4 
8 


РЕМТ 5>4 
1 


Что и следовало ожидать: результат истинного сравнения — 1, 
ложного — 0. В выражениях, сравнивающих величины, использу- 
ются все возможные сочетания знаков: «равно» (=), «больше» (>), 
«меныше» (<), «больше или равно» (>=), «неравно» (<>), «меньше 
или равно» (<=). 

Выражения со сравнением можно вставлять и в «нормальные» 
числовые выражения: 


РЕММТ 5+2*(3>6) 
: | 


Сравнив числа Зи 6, компьютер сделал заключение, что выра- 
жение в скобках ложно и подставил вместо него ноль. 
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Сравнение символьных значений 


Поскольку каждому символу соответствует некий числовой эк- 
вивалент — код, то можно сравнивать не только числовые, но и 
символьные значения. Например, казалось бы, абсолютно бес- 
смысленное с точки зрения математики выражение: 


РЕМТ "А"<"В" 
1 


— Аля компьютера имеет вполне конкретное значение. Подумав, 
он сделал заключение, что оно верно, поскольку код буквы А 
меныше кода буквы В. При сравнении символьных значений, 
состоящих более чем из одного символа, происходит последова- 
тельное сравнение кодов до тех пор, пока не встретятся неравные 
коды: 


РАМТ "ААААС”>"ААААВ”" 
1 


При прочих равных условиях меньшим будет признано более 
короткое символьное значение: 


РЮМТ "АААА"”>"ААААВ”" 
© 


Двоичное счисление 
вм 


Реально компьютер обрабатывает числа, записанные в двоич- 
ном счислении: нулями и единицами. Поэтому часто приходится 
сталкиваться с необходимостью преобразовывать числа, записан- 
ные в двоичном виде, в привычные и для глаза, и для счета, 
десятичные. Специализируется на этом функция ВМ. Например: 


РАМТ ВМ 0 
ка ВМ 1 
же ВИЧ 10 
ат ВМ 11 
мнт Вим 100 


Мы привели так много примеров, чтобы хоть как-те помочь тем, 
кто впервые сталкивается с двоичной записью чисел. 


Математически оператор ВМ эквивалентен формуле: 
Рох2° + 21х21 + Р2х2? + Рзх2? +... 
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— где Ро, Ва, Р2, Оз, соответственно, разряды двоичного числа, 
читаемые справа налево и принимающие значения 0 или 1. Пере- 
ведем из двоичного в десятичный вид число 1101: 


РВо=1, ЭВ1=0, Р2=Т, Рз=0, Р4=1 
1х20 + 0х21 + 1х22 + 1х23 = 13 
Проверим: 


РЕМТ ВМ 1101 
13 


Так оно и есть. 


Случайные числа 
ЮМО, КАМОРОММЕ 


В набор числовых функций Бейсика входит функция ВМО — 
генератор псевдослучайных чисел. Потребность в получении слу- 
чайных чисел возникает, например, при написании игровых прог- 
рамм, обучающих систем (выдача неповторяющихся заданий) и во 
многих других случаях. 


Аля ВМО не нужен аргумент 
— при вызове функция возвра- 
щает случайное число в интер- 


вале от 0 до 1. Распечатаем на ре 
экране много-много раз значе- { 
ния, возвращаемые ВМО: О» 
10 РОВ Е=1 ТО 100 > 
20 РЕМТ ЮМО; ""; 


30 МЕХТ 1 


Нолучим ряд чисел, между ко- 
торыми нет никакой видимой 
зависимости, что и является 
признаком случайности. Олнако 
если генерировать числа с по- 
мощью ЮМО долго-долго, то их 
последовательность начнет пов- 
торяться. Поэтому в название 
функции добавлено слово 
«псевдо». Хотя в подавляющем 
болынцинстве случаев этим 
«псевдо» можно пренебречь. 


Существенным неудобством ®ЮМО является то, что после запуска 
(или сброса} компьютера функция каждый раз начинает гене- 
рировать с одного и того же числа одну и ту же последовательность 
(происки все того же «псевдо»). Пришлось ввести в Бейсик спе- 
циальный оператор ВАМРОММЕ. Выполняя его с указанием вслед 
за ним произвольного числа в интервале 1...65535, можно уста- 


х 
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навливать начало последовательности случайных чисел. Если тре- 
буется совершенно случайная последовательность с совершенно 
случайным началом, то нужно вслед за КАМООМЕЕ поставить ноль 
либо вообще ничего не писать. Выполним несколько раз (каждый 
раз сбрасывая компьютер) строку: 


РАМООММЕ: РАМТ КМО 


Теперь-то уж мы приблизились к случайности — функция ЮМО 
каждый раз выбрасывает различные значения. 

Для генерации случайных чисел в интервалах, отличных от 
стандартно заданного для функции ЮЮ№ (0...1), используются эле- 
ментарные алгебраические выражения. Например, оператор 


РЕМТ 2+3+КМО 


будет выдавать случайные числа в интервале 2...5. Известная нам 
функция МТ поможет генерировать целые случайные числа. Ска- 
жем, с помощью оператора 


РЕМТ 1-+1МТ(ВМО*9) 


можно получить последовательность целых случайных чисел от 1 
до 10. 


Анализ атрибутов знакоместа 
АТТЮ 


При написании игровых программ, да и во. многих других 
случаях, часто бывает необходимо определить атрибуты знакоместа 
экрана, то есть выяснить, какими цветами оно раскрашено. В 
Зреснит-Бейсике этим занимается функция АТТВ. Аргументами 
для нее являются координаты тестируемого знакоместа, размещае- 
мые за ней в скобках через запятую: номер строки (0...22) и номер 
столбца (0...31). В качестве результата АТТВ возвращает числовое 
значение от 0 до 255, которым зашифрованы значения атрибутов 
знакоместа. 


Выполним программку: 


10 РАМТ АТ 10,10; МК 1; РАРЕЮ 6; ВЮСНТ 1; РЕАЗН 1;"*"; 
20 РАМТ АТТК(10, 10) 

РОМ 

*2414 


_ В ней задаются, а затем считываются атрибуты знакоместа с 
координатами (10, 10). Число 241 получается в результате вы- 
числения выражения, в котором <ИК>, ‹РАРЕК>, <ВАСНТ> и 
«РЬА$ЗН> — значения атрибутов: 


1х<!МК>+8х <РАРЕК>-+64х <ВЕСНТ>+128 х <РЕА$Н> 
— то есть в нашем случае: 
1х1+8х6+64х1+128х1=241 
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Символы псевдографики 


В 7Х 5ресбат коды от 32 до 127 (см. табл. 1 на стр. 1090) 
соответствуют стандартному набору компьютерных символов (кро- 
ме знаков &# и ©). Этот набор называется АЗСП-коды (Атепсап 
З{апЧага Со4е {ог шЮгтаНоп Пиегсвапде), 

Остальные символы не входят в АЗСП. Символы с кодами от 
128 ло 143 включительно — это так называемые псевдографические 
символы. «Графические» они потому, что представляют из себя 
квадратики, прямоугольники и т. п. Их изображение помещено на 
цифровых клавишах (от 1 до 8). «Псевдо» — потому, что по сути 
они такие же символы, как и буквы, то есть выводятся на экран 
нажатием соответствующих клавиш. 


Переход в режим псевдографики происходит после одновремен- 
ного нажатия двух клавиш: С5/9 (СгарЫс$). Курсор меняется на 
[С]. Если одновременно с нажатием цифровых клавииг удержи- 
вать клавишу $55, графические символы будут выводиться в инвер- 
сном виде. Для выхода из режима [С] нужно нажать клавиши ©С$/9 
или даже просто $9. 


Символы, определяемые пользователем 


В режиме псевдографики, кроме нанесенных на цифровые кла- 
вин!и графических символов, на экран выводятся и так называе- 
мые символы, определяемые пользователем (РС — Ч5ег Бейпеа 
СгарВ1с5}). Их может быть до 22, и «привязываются» они к кла- 
вишам от А до ®. Это могут быть и дополнительные графические 
символы, и произвольные значки, и — что часто можно встретить 
в отечественных 5рессу — буквы русского алфавита. Этим новым 
символам присваиваются колы от 144 ло 155. 

Наша фантазия при создании новых символов ограничена 
лишь размерами знакоместа (8х8 пикселей}. Попробуем «сконст- 
руировать» значок, показанный на рис.5. 

Для записи изображения символа в память компьютера его надо 
представить последовательностью из 8 чисел, соответствующих 
строкам пикселей знакоместа. Каждая строка представляется в 
виде Авоичного числа, исходя из принципа: есть точка в данной 
позиции строки — ставится 1, нет — 0: 


00011100 
00011100 
00001000 
01111111 
00011100 
00011100 
00010100 


00010100 Рис. 5. Эскиз симвопа ЦОС. 
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Эти числа, преобразованные с помощью функции ВМ в де- 
сятичные, последовательно записываются в память компьютера, 
начиная с адреса, возвращенного функцией 0$®*. Аргументом 95 
лолжен быть символ клавиши, за которой мы хотели бы «за- 
крепить» новый значок. Например, если мы запишем последова- 
тельность полученных чисел, начиная с адреса 95 "А", то в ре- 
жиме курсора [С] при нажатии на клавишу А будет выводиться 
нанг символ. 

Запись в память осуществляет специальный оператор 5ресиит- 
Бейсика РОКЕ**, вслед за которым через запятую нужно указать, 
куда записывать (адрес} и что записывать: 


РОКЕ Ц$К "А", ВМ 00111100 


Второе число записывается по следующему адресу: 
РОКЕ Ц5К "А”-+1, ВИЧ 01000010 


И так восемь раз. После этого можно перейти в режим курсора 
[С] и попробовать выводить значок, нажимая клавишу А***. 


Управление выводом на экран 
с помощью «знаков препинания» 


В какое место на экране будет размещать текст оператор РАМТ, 
зависит от знака, стоящего в конце предылущего РЕМТ. Если он 
оканчивался точкой с запятой (;}, то, как мы уже знаем, текст будет 
выводиться на экран, начиная со слелующего знакоместа в той же 
строке: 

10 РАМТ "ВАЗС”; 

20 РАМТ "5 МУ ГОУЕ" 
ком 

ВА$З!С 1$ МУ ТОУЕ 


Запятая (,) укажет на то, что вывод нужно продолжить с се- 
редлины строки (если, конечно, последний помещенный символ 
уже не перевалил за середину; в таком случае ланные булут 
размещены с начала слелующей строки): - 


10 РАМТ "5РЕССУ", 

20 РАМТ "15$ МУ ГО\УЕ" 
ком 

$РЕССУ 1$ МУ ГОУЕ 


Если вообще какой-либо знак отсутствует, значит, слелующему 
оператору РЕМТ следует выводить символы с новой строки, то есть 
неред выводом будет выполнена операция «перевод строки». 


Функция 4$В используется также для вызова подпрограмм в машинных кодах 

(см. «Справочник»). 

С ним мы более подробно познакомимся позже. 

*** Более подробно о формировании символов ЧЮС читайте в [1] (в квадратных 
скобках мы будем указывать порядковый номер издания в списке литературы, 
приведенном в конце книги). 


2.3 
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РЕМТ сам по себе (без данных) вставляет «пустую строку» и 
переводит текущую позицию вывода в начало следующей. 

В операторе РАМТ может использоваться и апостроф (‘). Натолк- 
нувшись на него, компьютер осуществит перевод строки. 

Знаки препинания могут отделять различные блоки данных, 
выводимых одним оператором РАМТ: 


10 РЕИМТ 1234; “ ОМИЕЕТ", "АЗОР" ' "2ХСУ" 
1234 @МЕЮ _ А$ЗОЕ 
ЕСХСУ 


Управляющие символы 


Символы с кодами от 0 до 31 (см. табл. 2), вообще говоря, 
символами не являются: у них нет собственного, отображаемого на 
экране начертания. Это так называемые управляющие символы. 

Управляют они, например, выводом на экран компьютера. Так, 
попытка вывести на экран управляющий символ с кодом 6 приве- 
дет к результату, аналогичному действию запятой, поставленной 
между данными после РАМТ: 


РАМТ "КЦ"; СН®$ 6; "КИ" 
ко ко 


Управляющий символ с кодом 13 действует аналогично апост- 
рофу: указывает, что вывод нужно продолжить с начала следую- 
щей строки. 

Символы СНЕ$ 22 и СНКЕ$ 23 в операторе РЕМТ выполняют те же 
функции, что и АТ и ТАВ. После этих управляющих символов 
указывается по два параметра (второй параметр для СНЕ$ 23 
игнорируется). Оператор 


РЕМТ СНЕ$ 22+СНВ$ 1+СНЕ$ 10; 5; СНЮ$ 23+СН®$ 11+ СНК$ 0; 5 
аналогичен оператору 
РЕМТ АТ 1, 10; 5; ТАВ 11; 5 


Управляющий символ СНЕ$ 8 называется «забой» (ЪасК5расе). 
Он переводит текущую позицию вывода на одно знакоместо назад. 
То есть символ, следующий за «забоем», оператор РАМТ выводит на 
место последнего, напечатанного до него: 


10 РЕМТ "АВА"; СНЕ$ 8; "С" 
Ром 
АВС 


Символы с кодами 16...21 управляют атрибутами экрана и 
могут использоваться в операторе РАМТ вместо соответствующих 
ключевых слов: 


МК — СН®$ 16 
РАРЕЕ — СН®В$ 17 
РЕАЗН — СН®В$ 18 
ВРЮНТ — СНК$ 19 
ИЧУЕВ$Е — СН®$ 20 
ОУЕЮ — СН®$ 21 
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Например, оператор 
РЕНЧТ СНЕ$ 17+СНЕ$ 6;"АВС" 
равнозначен 
РАМТ РАРЕК 6;"АВС” 


- 


Управление цветом в режиме курсора [Е] 


Назначить цвет фона и цвет тона можно еще одним способом: 
раскрашивая предназначенный для вывода текст непосредственно 
при его наборе. Нужно только, когда потребуется изменить цвет, 
войти в режим курсора [Е] и нажать цифровую клавишу, соответ- 
ствующую номеру желаемого цвета. Нажатие цифровой клавиши 
совместно с ©С$ задает цвет фона, без С$ — цвет тона. При этом в 
текст будут вставляться «невидимые» управляющие символы 
СН®$ 17 и СНЕ$ 16. 


В режиме курсора [Е] можно управлять и другими атрибутами 
экрана: 


8 — ВЮСНТОо 
9 — ВЮАСНТ1 
С$/8 — РЬАЗН 0 
С$/9 — РЕАЗН 1 


Инверсный вывод можно задать при наборе текста непосредст- 
‚ венно в режиме курсора [1:]: 


С$/3 —  МУЕВЗЕ 0 
С$/4 — МУЕЮЗЕ 1 


Все действия по раскраске, выполненные в режиме курсора [Е], 
можно легко отменить. «Невидимые» коды управления цветом 
удаляются двойным нажатием Ваее (С$/0). 


СИСТЕМНЫЕ ПЕРЕМЕННЫЕ 


Интерпретатору Бейсика для «служебного пользования» в ком- 
пьютере отводится специальная область оперативной памяти. В 
ячейках этой области хранятся настроечные параметры интерпре- 
татора, а также данные, необходимые для обработки бейсик-прог- 
рамм. Читая содержимое этих ячеек, можно узнать много интерес- 
ного о состоянии компьютера. Записывая же в них необходимые 
нам значения, можно влиять на работу компьютера. 

Эти ячейки памяти называют системными переменными. У каж- 
дой из переменных есть свое имя и фиксированное положение в 
памяти*. 


С Наверное, нет необходимости пояснять, что системные переменные ничего обще- 


го не имеют с переменными бейсик-программ. 
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Многие из системных переменных непосредственного отноше- 
ния к Бейсику не имеют, но использование некоторых из них 
намного расширяет возможности программиста, тем более, что 
изменять значения системных переменных можно с помощью опе- 
раторов Бейсика. 


Чтение содержимого памяти 
РЕЕК 


Память 7Х Зресцбит состоит из множества отдельных ячеек, в 
каждой из которых может быть записано число от 0 до 255 (байт). 
Всего ячеек 65535. Аля того чтобы различать ячейки, каждой из 
них приведено в соответствие число от 0 до 65535, называгмое 
адресом. С помощью оператора РЕЕК прямо из Бейсика можно 
читать содержимое любых ячеек памяти. Выполним в непосредст- 
венном режиме оператор 


РАМТ РЕЕК 23560 
13 


По сути, мы выяснили, что в ячейке памяти с адресом 23560 
записано число 13. «Зациклим» считывание этой ячейки: 


10 РЕИМТ РЕЕК 23560 
20 ©О ТО 10 

ком 

13 


Вполне естественно, что первоначальный результат выполнения 
программы будет таким же, как и при выполнении строки. Но если 
теперь, не останавливая программу, нажимать разные клавиши, 
на экране будут появляться коды соответствующих символов. 

Итак, мы познакомились с системной переменной ГА$Т К (алд- 
рес 23560), в которой постоянно хранится код последней нажатой 
клавиши. 

В некоторых случаях пользоваться системной переменной 
ГАЗТ_К предпочтительнее, чем функцией ИМКЕУ$. Ведь МКЕУ$ воз- 
вращает символ клавиши, нажатой именно в момент ее выпол- 
нения, и требует обязательного «зацикливания» программы на 
опросе клавиатуры. Переменная Г.АЗТ_К сохраняет код клавиши и 
после ее отпускания. Это позволяет после завершения программой 
каких-либо действий проверить, была ли нажата клавиша в мо- 
мент выполнения этих действий. 


Системный счетчик 


Системный счетчик — внутренние часы 7Х 5реснат. Под него 
в памяти компьютера отведено три ячейки памяти с адресами 
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23672/73/74*. Они носят общее название «системная переменная 
ЕКАМЕФ». 

После включения или сброса компьютера содержимое всех трех 
ячеек обнуляется. По прошествии 1/50 секунды в ячейку 23762 
записывается число 1. И далее, через каждые 1/50 секунды ее 
содержимое увеличивается на 1. При достижении значения 255 
ячейка 23762 обнуляется, а содержимое ячейки 23673 увеличива- 
ется на 1. И, соответственно, когда переполняется ячейка 23673 
(записанное в ней значение достигает 255), к содержимому ячейки 
23674 прибавляется 1. Следовательно, в нашем распоряжении 
_ имеются часы, отсчитывающие время с момента включения компь- 
ютера с точностью в 1/50 секунды непрерывно в течение 


(255+255х256+255х256х256)/50=335544,3 секунд, 
то есть 3 суток и еще 21 часа. Потом все сначала. 


Аля определения числа полных секунд, прошедигих с момента 
включения или сброса компьютера, нужно рассчитать следующее 
выражение: 


ТЕТ Т=ИЧТ((65536*+РЕЕК 23674+256*+РЕЕК 23673+РЕЕК 23672)/50) 


Таким образом можно смоделировать на компьютере часы: 


10 МРОТ "Час “Фоиг 

20 МРОТ "Минуты "ут 

30 РОКЕ 23674,0: РОКЕ 23673,0: РОКЕ 23672,0 
40 1ЕТ +=РЕЕК 23672+2569*РЕЕК 23673+65536+РЕЕК 23674+ 

Боигж180000-+ппи*3000 

50 ВЕТ В=МТ (+/180000) 

60 ТЕТ #$=$Т®$ В 

70 Е ЕЕМ 1$=1 ТНЕМ ЕТ 1$="0"+1$ 

80 ЕТ В$=Н$( ТО 2)+":" 

90 ЁЕТ м=ИМТ ((+—6+180000)/3000) 
100 ЦЕТ п$=5Т8$ т 
110 1+ ЕЕМ м$=1 ТНЕМ (ЕТ п1$="0"+п1$ 
120 ВЕТ т$=п1$( ТО 2)+”:" 
130 ЕТ $=МТ ((+—№*180000—т»*3000)/ 50) 
140 ЕЕТ $$=$ТЮ$ $ 
150 1Е ТЕМ $$=1 ТНЕМ (ЕТ $$="0"+$$ 
160 (ЕТ $$=$$С ТО 2) 
170 РЕМТ АТ 20,24;1$;т$;5$ 
180 ©0 ТО 40 


Эти «часы» можно включить в любую программу. Следует толь- 
ко учитывать, что на время ожидания ввода данных операторами 
МРОТ вывод времени на экран будет остановлен**. Чтобы задержка 
была не так заметна, лучше из программы, Е Ва часы, 


* 
В таком виде мы будем приводить адреса системных пе еменных, занимающих 


более одной ячейки. В данном случае это адреса 23672, 23673, 23674. 
Это относится икд угим операторам, приостанавливающим. выполнение прог- 
раммы (ЕОАЩ, ЗА\Е, РАЦЗЕ). 


жж 
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исключить строки 130...160 и убрать переменную $$ из строки 
170, то есть не выводить на экран секунды. 


Запись в память 
РОКЕ 


Запись чисел в память производится с помощью оператора 
РОКЕ. Вслед за ним через запятую располагаются два значения: 
адрес от 0 до 65535 и заносимое в память по указанному адресу 
число от 0 до 255. 


Невидимая точка на экране 


Оператор ОВА\М/ начинает чертить отрезок линии или дуги от 
последней выставленной на экране точки. Координаты этой точки 
он берет из системной переменной СООВБ$. В ячейках с адресами 
23677 и 23678 этой переменной хранятся, соответственно, зна- 
чения координат х и у последней выставленной на экран точки. 
Зная это, можно, не выставляя точки с помощью оператора РЕОТ, 
записывать начальную координату для ОВКА\\/ сразу в переменную 
СООВЬ$: 


10 РОКЕ 23677,100: РОКЕ 23678, 100 
20 РРАММ 50, 50 


Другое полезное применение в программе переменной 
СООКО5 — это получение из нее с помощью РЕЕК информации о 
координатах последней выставленной точки. 


Окраска экрана 


Оперируя системными переменными, можно добиться того, что 
невозможно сделать с помощью обычных операторов и функций 
Бейсика. 

Например, в Бейсике нет оператора, изменяющего все атрибу- 
ты служебного экрана (оператор ВОЮОЕК устанавливает только цвет 
фона). Задать их можно только, записывая соответствующие зна- 
чения в системную переменную ВОВОСК (адрес 23624). Число, 
которое необходимо записать по этому адресу, формируется по 
принципу, изложенному в описании функции АТТК (см. стр. 55}. 

Определяя через системную переменную ВОКОСВ цвет фона 
служебного экрана, мы одновременно задаем цвет бордюра. 


Точно также, выполнив лишь один оператор 
РОКЕ 23693, Х 


— можно задать атрибуты и основного экрана (вместо привычных 
ИМК, РАРЕК, РЕАЗН и ВЮЮНТ). 23693 — это адрес системной перемен- 
ной АТТЕ_Р, значение которой определяет «окрас» основного экра- 
на. Х — число, которым зашифрованы атрибуты. Межет, этот 
способ сложнее; но он короче и изящнее. 
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Другие операции с экраном 


Оперируя системными переменными, можно менять привы- 
чные характеристики Бейсика 7Х 5ресйат. Например, можно 
увеличить основной экран: занять под него все 24 строки. Для 
этого нужно модифицировать содержимое системной переменной 
ОЕ 57 (адрес 23659), задающей количество строк в служебном 
экране: 


РОКЕ 23659,0 


Правда, в этом случае следует исключить в программе вывод на 
служебный экран, иначе не оберешься беды. Когда же без служеб- 
ного экрана не обойтись (при работе с оператором МРОТ или при 
ожидании вывода сообщения, например, о завершении работы 
программы) необходимо восстановить содержимое РЕ_57.: 


РОКЕ 23659,2 


Существует системная переменная $СВ_СТ (адрес 23692), зада- 
ющая количество строк текста, передвигаемых вверх по экрану без 
запроса $сго. Требуемое значение этой переменной устанавлива- 
ется только из программы (изменить 5СК_СТ в непосредственном 
режиме невозможно). 


Настройка клавиатуры 


Меняя значения системных переменных ВЕРЕ! (адрес 23561) _ 
и ВЕРРЕВ (23562), можно по своему вкусу настроить клавиатуру 
компьютера. В переменной КЕРПЕ!. хранится число, определяю- 
щее величину задержки (в 1/50 сек) между нажатием клавиши и 
началом автоматического повторения нажатия (автоповтора). 
КЕРРЕК задает период автоповтора (также в 1/50 сек). 

При желании можно изменить длительность звучания сигнала, 
возникающего при нажатии клавиш. Число, пропорциональное 
времени его звучания, содержится в системной переменной РР 
(23609). 

Звуковой сигнал возникает и при переполнении буфера редак- 
тора и некоторых других ошибках. Длительность сигнала 
регулируется значением системной переменной ВАЗ$Р (23608). 


Полезная информация о памяти 


Например, нас может заинтересовать длина написанной 
бейсик-программы. Выберем из системных переменных РВОС 
(23635/36)} и УАВ$ (23627/28) адреса начала бейсик-программы 
и начала области бейсик-переменных и вычтем одно из другого: 


РЕИМТ (РЕЕК `23635+256+РЕЕК 23635)—(РЕЕК 23627+256*+РЕЕК 23628) 
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Под системные переменные, хранящие значения адресов, отво- 
длятся по две ячейки памяти, поскольку в одну ячейку можно 
записать число не более 255. Аля записи числа до 65535 (мак- 
симальный адрес памяти 7Х 5реснит) его разбивают на два чис- 
ла. Сначала делят на 255, после чего остаток от деления заносят в 
первую ячейку (младший байт), а целую часть — во вторую (стар- 
ший байт). Например, число 64768 разобьется на два байта так: 


ГЕТ 1=64768—256+МТ(64768/ 256): КЕМ Младший байт 
СЕТ Н=МТ(64768/256): КЕМ Старший байт 


Умение записывать значения адресов в системные переменные 
может пригодиться, например, при оперировании с символами, 
определяемыми пользователем (см. стр. 56}. Адрес начала области 
памяти, в которой размещается информация об этих символах, 
хранится в системной переменной ООС (адреса 23675/76). Изме- 
няя ее содержимое, можно определить несколько наборов символов 
и по необходимости в программе переходить с одного на другой. 


Аналогично можно переключать и основной набор символов. 
Стандартный набор символов 7Х ЗресНит «зашит» в постоянном 
запоминающем устройстве (ПЗУ), начиная с адреса 15616. Пол 
хранение этого адреса выделена системная переменная СНАВ$ 
(адреса 23606/07). Зная это, мы можем создать в памяти (или 
загрузить с магнитофона как кодовый блок) новый набор симво- 
лов и, переписав значение СНАБК$, переключить на него работу 
компьютера. Как создавать символы, мы описывали в разделе, 
посвященном псевдографике. Переопределяя адрес начала теку- 
щего набора символов, необходимо помнить, что первые 32 кода 
(от 0 до ЗВ) являются управляющими и им не соответствуют 
никакие символы. Поэтому: адрес начала размещения символов 
больше числа, записанного в СНАВ$, на 256 (32х8)*. Следователь- 
но, загрузив новый набор символов по адресу 64768, для подклю- 
чения его в СНАВ5 нужно записать число 64512 (64768—256)**.. 

Мы рассказали далеко не о всех системных переменных. Мно- 
гим из неупомянутых трудно придумать какое-либо практическое 
применение в бейсик-программах. Аля понимания назначения 
других недостаточно знаний, которые можно почерпнуть из этой 
книги. Полный список системных переменных и их описание 
можно найти в [1]. 


СЖАТИЕ БЕЙСИК-ПРОГРАММ 


Существенный недостаток 2.Х Зресблип — относительно малый 
объем свободной памяти (около 40 килобайт): А тут еще интерпре- 
татор Бейсика «транжирит» память: под запись. любого числа 
интерпретатор отводит 6 ячеек памяти независимо от размера 
числа. Даже если это просто единица или ноль. Вот и приходится 


* 
ж* 


Под каждый символ отводится 8 ячеек памяти. 
Более подробно о подключении альтернативных шрифтов см. [1]. 
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программистам, работающим на Бейсике, изошряться, чтобы 
втиснуться в узкие рамки памяти Зрессу. 

Прежде всего надо расширить область памяти, отведенную для 
работы бейсик-программы. Границы, в которых может размещать- 
ся программа с переменными, определяются компьютером, но мо- 
гут быть изменены. Старший адрес памяти, разрешенный к 
использованию интерпретатором Бейсика, хранится в системной 
переменной ВАМТОР (23730/31). Стандартно он равен 65367. Но 
если программа не вмещается, его можно увеличить до предела — 
ло 65535*. Для этого нет необходимости записывать новое зна- 
чение КАМТОР с помощью РОКЕ. Изменить КАМТОР можно с 
помощью специально предназначенного для этого оператора 
СЕЕАВ с параметром 65535. Правда, СЕЕАК к тому же очистит все 
переменные, массивы, выполнит операторы СЕ$ и ВЕЗТОКЕ, вообще 
подготовит программу к новому пуску. 

Если и после перемещения КАМТОР не хватает памяти, при- 
дется применять более изощренные методы. 


Приведем несколько самых распространенных способов сжатия 
бейсик-программ. Хотя в этой области нет предела для фантазии. 

Во-первых, надо свести к минимуму длину имен всех числовых 
переменных. Если их меньше, чем букв в алфавите, то все сделать 
однобуквенными. 

Памятуя, что числовые константы занимают много места, не 
помешает самые часто используемые из них заменить на перемен- 
ные. Надо только единожды в начале программы присвоить им 
требуемые значения. 

Целые числовые константы выгоднее записывать как символь- 
ные и помещать их «под» функцию УА|. К примеру, операторы 
ЕТ а=5 и "ЕТ а=УАЁ "5" тождественны, однако второй оператор 
занимает в памяти на две ячейки меньше (но, следует учесть, 
работает медленнее). 

Аля сокращения объема памяти, занимаемого программой, бы- 
вает полезно вместо числовых массивов использовать символьные. 
Ведь под каждый элемент числового массива, независимо от того, 
что в нем хранится, отводится по пять ячеек памяти, в то время, как 
под элемент символьного массива отводится лишь одна ячейка. 
Преобразовать же символьную константу в число можно с по- 
мощью той же УАЕ. 


И, напоследок, парочку «хитростей». Например, вместо нуля, 
который, как и любое число, занимает в памяти 5 байт, можно 
записать просто ВМ, либо МОТ Р!. Число «пи» отлично от нуля, и это 
главное, а логический оператор МОТ, по определению, превращает 
его в ноль. Внешне получилось длиннее и мудреней, но в памяти, 
тем не менее, такая запись займет лишь две ячейки. Вывернув- 
шись можно «смоделировать» и единицу. Например, записав 
МОТ ВМ либо $МС Р|. 


При этом, правда, затирается область символов, определяемых пользователем. 
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ЗАЩИТА БЕЙСИК-ПРОГРАММ 


Вообще говоря, коммерческие программы, которые требуют за- 
щиты, обычно пишутся не на Бейсике. Но ради интереса немного 
поговорим и на эту тему. 


Простую (не защищенную) программу в любой момент можно 
запустить, остановить, просмотреть, внести изменения — в общем, 
сделать с ней все, что душе угодно. 


Защита программы может происходить на трех этапах. Во-пер- 
вых, делают так, чтобы ее невозможно было загрузить в память 
компьютера без специального загрузчика. Во-вторых, чтобы ее 
нельзя было нормальным образом остановить (по ВтеаК). И, в- 
третьих, если уж ее остановили, то нельзя было бы ее просмотреть 
с помощью И$Т. 


От просмотра программы можно защититься, расставив в ее 
тексте коды управления цветом, окрашивающие листинг в одина- 
ковый цвет тона и фона. Например, если после написания прог- 
раммы вызвать на редакцию ее первую строку и нажать 
комбинацию клавиш ©С$/$$+С$/7 (белый цвет тона), то строка 
«пропадет». После ввода этой строки (Ещег) бесцветным станет и 
весь текст программы. 


Против принудительного останова программы при нажатии кла- 
виши Вгеак (С5/5расе) можно использовать ненормальную реакцию 
интерпретатора Бейсика на отсутствие служебного экрана. Надо 
только в системную переменную РЕ_57. записать нулевое зна- 
чение: 


РОКЕ 23659,0 


После нажатия ВгеаК компьютер должен отреагировать на него 
выводом сообщения ВВЕАК — СОНТ гереа{ на служебный экран. Но 
не тут-то было. Дальше может быть все что угодно, но только не 
просмотр листинга. 


Информации, приведенной в данной главе, явно недостаточно 
Аля обсуждения более изощренных способов защиты бейсик-прог- 
рамм и, тем более, способов ее «взламывания». Но мы надеемся 
еще вернуться к этому разговору в другой книге. 


$ 


СПРАВОЧНИК ПО $РЕСТКУМ-БЕЙСИКУ 


В этом разделе в сжатой и более строгой форме повторено все, что 
говорилось о зреснит-Бейсике в первой главе. «Справочник» 
предназначен для тех, кто постоянно работает с Бейсиком. 


Ключевые слова размещаются в алфавитном порядке, для каждого 
приведены: формат, класс, последовательность набора на 
клавиатуре, ссылка на страницу основного текста, краткое 
онисание и пример использования. Результаты выполнения 
примеров, выводимые на экран, выделены более жирным 
шрифтом. Примеры, набираемые в непосредственном режиме (без 
номера строки}, запускаются нажатием клавиши Ещег, программы 
— выполнением оператора ИМ. В примерах КОМ и Ещег опущены. 


После описания ключевых слов приведены; «Тематический указа- 
тель», в котором операторы и функции объединены но сферам их 
применения, перечень сообщений об ошибках, таблица символов 
2.Х бреснит и таблица контрольных кодов. 


При описании ключевых слов используются обозначения, пере- 
численные в начале книги, а также: 


[Е] - расширенный режим клавиатуры (включается 
одновременным нажатием клавиш С$ и $$). 


Классы ключевых слов 


По классу ключевые слова подразделяются на операторы, 
функции и логические операторы: 


. операторы предписывают компьютеру выполнение определен- 
ной последовательности действий, не связанных с преобразо- 
ванием числовых и символьных значений; формируют прог- 
раммные строки; 


‚ функции создают или преобразуют числовые и символьные 
значения; исходное значение называется аргументом, конеч- 
ное — результатом; используются только совместно с операто- 
рами; 


е. логические операторы задают действия над условиями. 


Терминология 


При описании формата операторов и функций применяются сле- 
дующие понятия: | | те 


‹ числовая константа — число в интервале от 2,8:10-39 до 
1,7.1038; точность представления — 8 десятичных знаков; 
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числовая переменная — имя переменной, хранящей числовую 
константу, начинается с буквы’и может состоять из произволь- 
ного количества символов, пробелы игнорируются, заглавные 
и строчные буквы не различаются; 


числовое выражение — допустимая интерпретатором комби- 
нация констант, переменных, функций, объединенных зна- 
ками математических операций, в результате вычисления ко- 
торой получается числовая константа, 


числовое значение — числовая константа, числовая перемен- 
ная, числовое выражение; | 


целочисленное значение — числовая константа, переменная, 
выражение, округляющиеся до ближайшего целого; 


$ 


символьная константа — последовательность символов, заклю- 
ченная в кавычки (строка символов); 


символьная переменная — имя переменной, хранящей 
символьную константу, составляется из двух символов: буквы 
и знака $; заглавные и строчные буквы не различаются, 


символьное выражение — допустимая комбинация констант, 
переменных, функций, объединенных математическими опе- 
рациями, в результате вычисления которой получается сим- 
волвБная константа; 


символьное значение — символьная константа, символьная 
переменная, символьное выражение. 


Формат 


Формат отражает, какие ключевые слова и значения и в какой 
_ последовательности необходимо использовать для составления опе- 
раторов и функций. При записи формата приняты следующие 


обозначения: 

<#> — числовое значение; 

<с> — целочисленное значение; 

«$нта> — символьное значение; 

«уаг> — числовая или символьная переменная; 

<усповие> — допустимая комбинация числовых и символьных 
значений, объединенных знаками сравнения и 
логическими операторами; 

<‹оператор> — допустимый в данном контексте бейсик-оператор; 

«аазг> — значение адреса ячейки памяти (0...65535); 

«п> — номер строки программы (0...9999) 

«гом > — номер строки экрана (0...21), 
отсчитывается от верхнего края экрана; 

«со > — номер столбца экрана (0...31), 


отсчитывается от левого края экрана; 


СПРАВОЧНИК 


<х> — горизонтальная координата точки (0...175), 
отсчитывается от нижнего края основного экрана; 
‹у> — вертикальная координата точки (0...255}, 
отсчитывается от левого края экрана; 
‹а> — угол, заданный в радианах; 
«союг> — код цвета. 


Коды цветов 


0 — черный 5 — голубой 
1 — синий 6 — желтый 
2 — красный 7 — белый 
3 — фиолетовый 8 — режим прозрачности* 
4 — зеленый 9 — режим черно-белого 
контраста** 
Знаки математических операций 
+ сложение = равно 
— вычитание <> не равно 
* умножение ‹ меныше 
/ деление _> больше 
1 возведение в степень <= меньше или равно 
() скобки >= больше или равно 


Порядок выполнения операций при расчете выражений 


выделение подстроки (сечение) 

функции 

возведение в степень 

минус перед числом (отрицательное число) 
умножение и деление 

сложение и вычитание 

сравнение (=, >, <, <=, >=, <>) 

. МОТ 

. АМО 

10. ОВ 


Первыми рассчитываются части выражения, заключенные в 
скобки. 


* 


Не используется в операторе ВОЮОЕЮ. 
** 


Только в операторах ИМК иРАРЕЙ. 
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АВ$ ‹:> [Е] С 


функция стр. 16 
модуль числового значения <2>. 


Пример: РАМТ АВ$ —3 
3 


АС$ ‹:> [Е] $5/\/ 


функция стр. 15 
арккосинус, значение аргумента <> должно находиться в интерва- 
ле от -—1 до 1. 


Пример*: РАМТ 180/Р*АС$ 0.5 


АМО | | $$/у 
логический оператор, функция стр. 35 
Логический оператор 


реализует логическое умножение. Комбинация условий, объедине- 
нных АМО, истинна, если истинно каждое из условий: 


Пример: \ЕТ Х=Ю: Е Х>5 АМО Х<15 ТНЕМ РЕМТ “УЕб" 
УЕ$ . 


Функция 
‚ возвращает значение, стоящее перед ключевым словом, если 
аргумент не равен нулю; 
. возвращает ноль или «пустую строку» (в зависимости от того, 
числовое или символьное` значение стоит перед ключевым 
‚ словом), если аргумент равен нулю. 


Пример: РАМТ "А" АМО 1 


А 

РЕИМТ 3 АМО 0 

8 
А$М ‹:> [Е] 55/0 
функция стр. 15 


арксинус, значение аргумента <2> должно находиться в интервале 
от —1 до 1 


Пример: РАМТ 180/Р\*АЗМ 0.5 


*  Умножением на 180 /Р! радианы переводятся в градусы. 
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АТ ‹гом>, <со> $$/1 
оператор стр. 14 
задает знакоместо для вывода данных в операторах РЕМТ и МРОТ. 
Параметр <го\> (0...21) определяет номер строки, «са (0...31) — 


номер столбца. Данные отделяются от АТ знаками-разделителями 
(запятая, точка с запятой, апостроф). 


Пример: РЕМТ "ААА"; АТ 10,15; "СОС" 


АТМ ‹2> [Е] $$/Е 


функция | стр. 15 
арктангенс числового значения <2>. 


Пример: РЮМТ 180/Р»АТМ 1 


АТТВ (<гом>, <со>) [Е] 55/1. 
функция стр. 55 


возвращает значение, соответствующее атрибутам знакоместа. 
Позиция знакоместа задается двумя целочисленными значениями, 
записанными через запятую и заключенными в скобки: <гом> — 
номер строки (0...23}, <со> — номер столбца (0...31). АТТЮ возвра- 
щает число от 0 до 255, рассчитанное по следующей формуле: 


1 х< МК >+8х<РАРЕК>+64х<ВЮЮБНТ>+1 28 х<РЬА$Н>, 
где <№МК>, <РАРЕЮ>, <ВЕЮНТ> и <РЕА$ЗН> — значения атрибутов*. 


Пример: Если символ в знакоместе с <гом>=11, <со>=16 напеча- 
тан синим (код 1) на желтом (6) с повышенной ярко- 
стью без мерцания, то функция АТТ® (11, 16) вернет 
число 1+6х8+64+0=112 


ВЕЕР ‹:>, <в> [Е] 55/2 
оператор стр. 40 
генерирует звук заданной длительности и высоты. Параметр <#> 
задает длительность звучания в секундах, <\> — высоту в полуто- 
нах: 0 соответствует ноте ДО первой октавы, диапазон изменения 


от —60 до 69. При большой длительности звучания допустимый 
диапазон высот уменьшается. 


Пример: ВЕЕР 0.5, 1: ВЕМ Нота ДО# первой октавы 
- в течение 0,5 секунды 


По сути, АТТЕ возвращает байт, в котором три младших разряда (0...2) определя- 
ют код цвета тона, ИЕ три (3...5) — цвета фона, два остальных (би 7), 
соответственно, — ВАСНТ и РЕАЗН. Число (0...255), возвращаемое функцией, 
получается при переводе значения байта из двоичного представления в де- 


сятичное: 20 х < МК > + 23х <РАРЕВ > + 2бх <ВЮСНТ> +27 х <РЕАЗН >. 
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ВИЧ ‹ь> [Е] В 


функция стр. 53 
переводит шестнадцатиразрядное двоичное число <Ь> в десятичное 
(нули в левой части числа можно опускать). 


Пример: РЕМТ ВМ 11111110 
254 


ВОВРОЕКЮ ‹соог> В 
оператор стр. 22 


задает цвет поля вокруг рабочей области экрана и цвет фона слу- 
жебного экрана. Цвет определяется параметром <союг>. 


В отличие от операторов №К и РАРЕВ, оператор ВОЮКОЕЮ не может 
быть использован в операторе РЕМТ. 


ВЫСНТ ‹р> [Е] $5/В 
оператор стр. 22 


устанавливает яркостный режим отображения информации. Пара- 
метр <р> может принимать одно из целочисленных значений: 


1 — включает режим повышенной яркости отображения инфор- 
мации; 
8 — задает режим прозрачности, при котором яркость отобра- 


жения информации будет повторять яркость, ранее установ- 
ленную для данного знакоместа, то есть при печати новых 
символов яркие знакоместа будут оставаться яркими, а нор- 
мальные — нормальными; 


0 — отменяет режимы повышенной яркости и прозрачности. 


Режим яркости устанавливается целиком для знакоместа и одно- 
временно для цвета тона и цвета фона. 


В качестве самостоятельного оператора ВАСНТ устанавливает тот 
или иной режим яркости для всех последующих выводов на экран 
(постоянный атрибут). 


ВЕЮНТ может также использоваться в операторах РЕМТ, МРОТ, РЕОТ, 
ОКА\У\/, СЮСЕЕ, устанавливая режим яркости отображения инфор- 
мации, выводимой только данным оператором (временный 
атрибут). В операторах РЮМТ и МРОТ ключевое слово ВЕСНТ разме- 
щается в любом месте блока данных, отделяясь от них знаками-раз- 
делителями (запятая, точка с запятой, апостроф). 


БАСНТ в операторах РЕОТ, ОКА\М/, СЮСЕЕ ставится сразу за ключе- 
вым словом и отделяется от параметров точкой с запятой. 


Пример: РЕМТ "ААА", ВЮСНТ 1; "ААА"; ВЕСНТ 0; “ААА” 
ААААААААА 


САТ 


ключевое слово в 5ресиит-Бейсике не задействовано. 
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СНЕ$ ‹к> [Е] о 


функция стр. 18 
возвращает символ по указанному в аргументе коду <К> (0...255). 


Соответствие символов кодам приведено в табл. 1 на стр. 100. 


Коды от 0 до 32 являются управляющими и не имеют символьного 
представления. Функция СНЕ$ с этими кодами в качестве аргумента 
влияет на вывод информации на экран и принтер (см. табл. 2 на 
стр. 101). 


Пример: РАМТ СНЕ$ 65 


А 
ЧЮСЕЕ ‹х>, ‹у>, <г> | [Е] $5/Н 


оператор стр. 20 


строит на экране окружность. Параметры окружности задаются в 
пикселях тремя целочисленными значениями: <х> (0...175) и <у> 
(0...255) — вертикальная и горизонтальная координаты центра 
окружности, <г> — радиус. 

Цвет окружности соответствует текущим постоянным значениям 
атрибутов либо задается операторами МК, РАРЕК и другими, постав- 
ленными непосредственно за ключевым словом СКЮСЁЕ и отделен- 
ными друг от друга и от параметров `точкой с запятой. 


Пример: СЮСЬЕ ТМК 3; 128, 88, 87 


СЬЕАВ [‹а4аг>] х 
оператор стр. 65 


обнуляет значения всех переменных, выполняет операторы С1$ и 
РЕЗТОЮЕ, сбрасывает позицию РЕСТ и очищает стек СО $08. 

СЬЕАВ с параметром, кроме того, заносит значение ‹адаг> в систем- 
ную переменную ВАМТОР (см. стр. 65). 


СЬО$Е #‹с> 


оператор используется при работе с потоками и каналами (см. [1]}. 


СЬ$ У 


оператор стр. 21 


очищает основной экран и окрашивает его в текущий постоянный 
цвет фона. 
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СОГЕ ‹з;нтз> [Е] 1 
Е ЕЕ 
функция стр. 18 


возвращает код первого символа символьного значения <5$нта> в 
соответствии с таблицей символов 7Х Зреснат (см. табл.1 на 
стр. 100). Если аргумент равен «пустой строке», функция возвра- 
щает 0. 


Пример: РАМТ СОБЕ "АВС" 
65 


СОМТИЧИЕ с 
оператор стр. 33 


продолжает выполнение программы с оператора, на котором оно 
было прервано. 


СОРУ у 
оператор стр. 51 


распечатывает копию экрана на принтере. 


СО$ ‹з> [Е] 
функция стр. 15 
вычисляет косинус угла <а>, заданного в радианах. 


ДАТА ‹данные>, ... [Е] р 
оператор стр. 43 
задает список данных — произвольный набор числовых и символь- 
ных значений. Элементы данных размещаются непосредственно 
за ключевым словом и отделяются друг от друга запятыми. Опера- 
тор РАТА можно помещать в любом месте программы. Список 


данных может быть распределен между несколькими операторами 
ОАТА. 


Считывание данных (занесение данных в переменные) 
производится оператором КЕАО. Переменные, используемые в ка- 
честве элементов данных, к моменту считывания должны быть 
определены. Последовательность считывания данных изменяется с 
помощью оператора КЕ$ТОЮЕ. 


Пример: 10 ЕТ 01=31: ВЕТ 22=28 
20 РОК М=1 ТО 2 
30 РКЕАО Х,А$ 
40 РЕМТ А$;" ";Х;" РАУЗ" 
50 МЕХТ М 
60 РАТА 01,”1АМ",О02,"РЕВ" 


ЗАМ 31 РА\У$ ГЕЕВ 28 ОАУ$ 
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Ключевое слово ФАТА может быть использовано также в 
комбинации с ГОАО, ЗАУЕ;и УБЮЕУ (см. ГОАО...ОАТА, $АУЕ...ОАТА и 
УЕЮРУ...ОАТА). 


ДЕР ЕМ [Е] $$/1 
оператор 

определяет пользовательские функции (дополнительно к «встроен- 
ным» в Бейсик). Аля задания числовой функции после ОЕР ЕМ 
ставится буква (имя функции), за ней в скобках одна или несколько 
отделенных друг от друга запятыми однобуквенных переменных 
(параметры функции} и следом через знак равенства — числовое 
выражение, залающее саму функцию. 


Пример: 100 ОЕР ЕМ ®(Х,У)=Х+У 
Оператор РЕЁЕ ЕМ помещается в любое место программы. 


Вызов пользовательской функции осуществляется ключевым сло- 
вом РМ. Вслед за ним указывается имя функции и в скобках через 
запятую — значения параметров в порядке, соответствующем их 
следованию в определении функции. 


Пример: РЕЮМТ ЕМ В(3,4) 
7 


В этом примере параметру Х присваивается значение 3, а У — 
значение 4. 


При расчете пользовательской функции переменные, совпадаю- 
щие по имени с параметрами функции, не изменяются. 


В выражении, задлающем функцию, могут использоваться и не 
указанные в скобках переменные. При вызове функции они 
принимают значения, заданные в программе. 


Символьная функция определяется аналогично числовой, ТОЛЬКО В 
качестве ее имени используется буква со знаком $. 


Пример: 150 ОЕЕ ЕМ А$(С$1})=С$(1 ТО }) 
200 РАМТ ЕМ А$ ("5рессу",2,4) 


рес 
м _ р 
абонента иотиень 
оператор стр. 41 


задает массив и его размерность. 
Числовые массивы 


При задании числового массива вслед за [М ставится однобуквен- 
ное имя массива и в скобках через запятые одно или несколько (в 
зависимости от размерности массива) целочисленных значений, 
задающих количество элементов массива по каждому измерению. 


Пример: 10 [М \(5) 
20 9М 2(10,3) 
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В первой строке примера задается одномерный числовой массив, 
состоящий из 5 злементов (индексированных переменных) 
ны) Во второй — двумерный массив из 30 элементов 
2 о ю 


После задания массива его элементам присваивается нулевое зна- 
чение. 


Число измерений массива не может превышать 255. 


Параллельно с числовыми массивами в программе могут использо- 
ваться неиндексированные числовые переменные стем же именем. 


Символьные массивы 


Имена символьных массивов состоят из буквы и знака $. При 
определении массива в скобках после имени, кроме числовых 
значений, задлающих его размерность, указывается число, опреде- 
ляющее длину элементов массива (количество символов в них). 


Пример: 10 О9М 2$(20,10) 
20 [М С$(10,4,5) 


В строке 10 задается одномерный символьный массив из 20 эле- 
ментов 2$(1)...2$(20), каждый из которых представляет собой т 
Алиной В 10 символов. В строке 20 — двумерный массив из 4 
строк длиной по 5 символов. 


М-мерный символьный массив можно рассматривать как (№М+1}- 
мерный массив с элементами длиной в один символ. Следователь- 
но, можно выделить любой символ элемента массива, указав в 
индексированной переменной, кроме значений индексов, еще и 
номер позиции символа в строке. 


Пример: 70 1ЕТ 2$(2)="ОММЕВТУОЮР" 
75 РАМТ 25$(2,3) 


После определения символьного массива его элементам 
присваивается значение строки, состоящей из пробелов. Символь- 
ные значения, присваиваемые элементам массива, либо дополня-. 
ются пробелами до нужной длины, либо усекаются. 


В отличие от числовых массивов, одновременно с символьным 
массивом не может существовать неиндексированная символьная 
переменная с тем же именем. 


Символьные массивы нулевой размерности 


Можно определить символьный массив нулевой размерности, ука- 
зав в скобках после имени массива только одно значение. 


Пример: 10 ОМ А$(15) 


Заданный массив имеет один элемент А$ — строку фиксирован- 
ной длины, равной указанному в скобках значению, в данном 
случае — 15 символов. 
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ОВА\/ ‹а>, <Ь>[, ‹а>] \ 
оператор стр. 20 


- строит на экране отрезок прямой линии или дугу окружности. 


Аля проведения прямой линии следом за ОКА\У/ через запятую 
ставятся два целочисленных значения, задающих относительное 
расстояние в пикселях от начала отрезка до его конца, соответст- 
венно, по горизонтали (‹а>) и вертикали (<Ь>). При проведении 
отрезка влево и вниз эти значения должны быть отрицательными. 
За начало отрезка принимается точка, выставленная последним 
выполненным графическим оператором (ОКА\/, РОТ, СЮСЕЕ). 
После включения компьютера начальная точка построения линий 
устанавливается в левый нижний угол основного экрана (0, 0). 


Аля проведения дуги окружности после значений, определяющих 
расстояние от начальной точки построения до конечной, через 
запятую указывается числовое значение <4>. Оно задает угол в 
радианах, получающийся при соединении концов дуги с центром 
окружности, частью которой она является. При положительном 
значении <4> дуга строится против часовой стрелки, при отрица- 
тельном — по часовой. 


Цвета линии соответствуют текущим постоянным значениям 
атрибутов либо задаются операторами МК, РАРЕЮ и другими, пос- 
тавленными непосредственно за ключевым словом ОКА\И и отде- 
ленными друг от друга и от параметров точками с запятой. 


Пример: ОВАУМ ИМК 2; 80, 50, —0.5 


ЕКА$Е 


ключевое слово в эреснит-Бейсике не задействовано. 


ЕХР ‹;>› Е | [Е] х 


функция — - : | еее ` Стр. 15 


экспонента: возводит число е=2,71 82818 в степень, иную 
числовым значением <%>. | 
Пример: РАМТ ЕХР 1 


2.7182818 


РЬАЗН ‹р> [Е] $$/У 
оператор стр. 22 


устанавливает режим мерцания при отображении символьной и 
графической информации. Параметр <р> может принимать одно 
из целочисленных значений: 


| — включает режим мерцания. Изображение на экране компью- 
тера при включенном режиме периодически меняет цвет тона 
на цвет фона и обратно; 
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8 — задает режим прозрачности, при котором режим мерцания 
° ‘будет повторять режим; ранее установленный для данного 
знакоместа, то есть при печати новых символов мерцающие 
знакоместа будут оставаться мерцающими, а нормальные — 
нормальными; 
0 — выключает мерцание и режим прозрачности. 


РАЗН устанавливает режим мерцания целиком для знакоместа. 


В качестве самостоятельного оператора ЕЕА$Н задает режим мер- 
цания для всех последующих выводов на экран (постоянный 


атрибут). 


РЕАЗН может также использоваться в операторах РАМТ, МРОТ. РЕОТ, 
ОКА\М\/, СЮСЕЕ, устанавливая режим мерцания графического и сим- 
вольного изображения. выводимого только данным оператором 
(временный атрибут}. 


В операторах РАМТ и МРОТ ключевое слово ЕЕА$Н размещается в 
любом месте перед данными, отделяясь от них знаками-разделите- 
лями (запятая, точка с запятой, апостроф}. РЕА$Н в операторах 
РЕОТ, ОКА\М\, СЮСЬЕ ставится сразу за ключевым словом и отделяет- 
ся от параметров точкой с запятой. 


Пример: РЕМТ "А"; РЕАЗН 1; "В"; ЕГАЗН 0; "С" 


Ем [Е] 55/2 


функция 
возвращает значение пользовательской функции, заданной опера- 
тором ОЕР РЕМ. См. описание ОЕР ЕМ. 


РОК ‹:>=‹а> ТО ‹ь> [5$ТЕР ‹;>] . 
оператор стр. 37 


определяет начало и параметры цикла РОЮ...МЕХТ, позволяющего 
выполнять часть программы, заключенную между операторами 
ГОК и МЕХТ, заданное число раз. Вслед за ЕОВ ставится буква — 
управляющая переменная цикла (<!>}, знак равенства и два числовых 
значения, разделенных ключевым словом ТО: <а> задает начальное 
значение переменной цикла, <«Ь> — конечное. Далее может сле- 
довать ключевое слово $ТЕР со стоящим за ним числовым зна- 
чением <$>, залающим шаг приращения управляющей перемен- 
ной. Шаг может быть как целым, так и дробным, как положитель- 
ным, так и отрицательным. При отсутствии ключевого слова $ТЕР 
шаг устанавливается равным 1. 


Пример: 50 РОЮ {=1 ТО 25 $ТЕР 5 


После конструкции РСЮ...ТО...5ТЕР размещается тело цикла — фраг- 
мент программы, который требуется повторить заданное число раз. 
В теле цикла может использоваться переменная цикла. Тело цикла 
завершается оператором МЕХТ со стоящей за ним переменной 
цикла. 


Пример: 100 МЕХТ | 
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Оператор МЕХТ увеличивает значение переменной цикла на задан- 
ный шаг и сравнивает ее новое значение с конечным значением 
<‹Ь>. Если переменная цикла не превысила конечное значение, то 
тело цикла выполняется еще раз, в противном случае цикл завер- 
шается и программа переходит к выполнению следующего за МЕХТ 
оператора. 


Возможно построение неограниченного числа вложенных циклов 
РОК...МЕХТ. 


РОКМАТ НЫ 


ключевое слово в эреснит-Бейсике не задействовано. 


СО $08 ‹п> Н 
оператор стр. 45 
передает управление подпрограмме. Номер строки, с которой начи-. 
нается подпрограмма, задается целочисленным значением «<п>. 
Текст подпрограммы должен заканчиваться оператором КВЕТОЕМ, 


который возвращает управление оператору, следующему за 
©О $ЦВ. | 


Из подпрограммы может осуществляться вызов другой подпрограм- 
мы. Количество таких вызовов (вложений) не ограничено. 


Пример: 25 СО $58 1000 
30 СО $ЦВ 1000-Х 


СО ТО <г› с 


оператор стр. 32 


передает управление строке программы. Номер строки задается 
целочисленным значением <‹п>. В режиме непосредственного ис- 
полнения СО ТО используется для запуска программы с любой 
строки без обнуления переменных и очистки экрана. 


12 <условие> ТНЕЁМ ‹оператор > [: < оператор>] ... о 
оператор стр. 33 


передает управление последовательности операторов при выпол- 
нении заданного условия. Условие ставится за , последователь- 
ность операторов — после ключевого слова ТНЕМ. При невыпол- 
нении (ложности) условия управление сразу передается на следу- 
ющую строку программы. 


Условием может быть и числовое значение. При этом считается, 
что истинным значением является отличное от нуля значение, а 
ложным — равное нулю. 


Несколько условий может быть объединено логическими операто- 
рами в логическое выражение. 
Пример: 50 Е Х<3 ТНЕМ РЕМТ "КО-КИ": СО ТО 250 


75 Е Х+У/5 ТНЕМ РАМТ Х+5; 
85 Е А$="ААА” АМО А=25 ТНЕМ СО $ЦВ 100 
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№ ‹аааг> [Е] $$ /1 


функция 

считывает число (байт) из порта (см. [1]). Адрес порта задается 
целочисленным значением «<аааг> (0...65535), записываемым за 
ключевым словом. 


Пример: 150 ЕТ ХМ У 


ИМК ‹соог> [Е] $$/Х 
оператор стр. 21 
устанавливает цвет тона — цвет, в который окрашиваются вы- 


вводимые на экран символы, точки, линии. Вслед за МК указывает- 
ся целочисленное значение <союг> в интервале от 0 до 9, которым 
кодируется цвет. 


После выполнения оператора МК 8 выводимые на экран символы 
и графические объекты будут окрашиваться в цвета, ранее уста- 
новленные для данных знакомест (режим прозрачности). МК 9 
устанавливает белый или черный цвет тона в зависимости от 
цвета ня с целью достижения наибольшего контраста (режим 
черно-белого контраста). | 


В качестве самостоятельного оператора ИМК устанавливает постоян- 
ный цвет тона, влияющий на все последующие выводы на экран 
(постоянный атрибут). 


МК может также использоваться в операторах РАМТ, ИМРОТ, РЕОТ, 
ОКА\М/ и СЮСЕЕ, устанавливая временный цвет тона. В этом случае 
№МК влияет на цвет символов и графических объектов, выводимых 
только данным оператором (временный атрибут). В операторах 
РАМТ и МРОТ ключевое слово МК размещается в любом месте блока 
данных, отделяясь от них знаками-разделителями (запятая, точка с 
запятой, апостроф). 


Пример. РАМТ "ОУ-ОУ-БУ"ЯмК З;"КИ-КО" 


№МК в операторах РЕОТ, ОКА\М/И, СЮСЕЕ ставится сразу за ключевым 
словом и отделяется от параметров точкой с запятой. 


Пример: СЮСЬЕТМК 4; 128,88,87 


МКЕУ$ [#‹‹>] [Е] м 
функция стр. 39 


возвращает символ, соответствующий клавише, нажатой в момент 
выполнения функции (прописные и строчные буквы различаются), 
либо «пустую строку», если ни одна из клавиши не нажата. Аргу- 
мента не требует. Используется для обнаружения факта нажатия 
клавиши на клавиатуре. 


С параметром #‹<с> функция используется при работе с потоками 
и каналами (см. [1]). = 
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Пример: 60 Е МКЕУ$<>"а” ТНЕМ СО ТО 60: РЕМ Останавливает 
работу программы до тех пор, пока не будет нажата 
клавиша а (без С$) 


ИЧРОТ 1 


оператор стр. 31 


вводит данные в программу: присваивает числовым или символь- 
ным переменным, расположенным за ключевым словом, соответст- 
венно, числовые или символьные значения, набираемые на 
клавиатуре. Вводимые значения могут содержать определенные в 
программе переменные. Следом за МРОТ в произвольном порядке 
размещаются переменные любого типа и текст комментариев. 
Текст комментариев составляется из символьных и числовых кон- 
стант или переменных. Комментарии, содержащие переменные, 
заключаются в скобки. 


Элементы, следующие за оператором МРОТ, отделяются друг от 
друга знаками-разделителями (запятая, точка с запятой, апостроф), 
действие которых аналогично их действию в операторе РАМТ. В 
МРОТ также могут быть использованы ключевые слова ИМК, РАРЕЮ, 
РЕАЗН, ВАСНТ, АТ и ТАВ. 


Пример: 10 МРОТ ТМК 2;”\/НАТ 15 УОУЮ МАМЕ? ";\$, 
("НО\У\М ОЁО АВЕ \УОЧ,"+М$+"? "); АСЕ 


Комментарии и вводимые данные оператор МРОТ отображает в 
нижней строке служебного экрана. После заполнения строки текст 
смещается на строку выше. 


Встретив переменную, не входящую в текст комментария (распо- 
ложенную вне скобок), компьютер выводит на экран курсор и 
ожидает ввода данных. При ожидании символьных данных на 
экран выводятся две кавычки. Данные набираются на клавиатуре 
и отображаются на экране. Они могут редактироваться подобно 
строкам бейсик-программы. После нажатия клавиши Е\цег на- 
бранное значение присваивается переменной. 


Введя оператор $ТОР на запрос ввода числовой константы, можно 
остановить выполнение программы. Останов программы в момент 
ожидания символьных данных также производится вводом $ТОР, но 
предварительно нужно удалить первую кавычку. 


Избежать появления кавычек при ожидании ввода символьных 
данных можно, используя конструкцию МРОТ ЫМЕ. Ключевое слово 
ЫМЕ ставится перед символьной переменной. Комментарий поме- 
щается между МРОТ и НЦМЕ. Прерывание работы оператора 
ИЧРОТ...ЫМЕ производится нажатием клавиш ©С$/6б. 


Пример: 70 МРОТ "\/НАТ 1$ УОЦВ МАМЕ? "; ЫМЕ №$ 


Используя параметр #<с> в произвольном месте списка парамет- 
ров и данных оператора ИМРОТ, можно переключать ввод и вывод 
информации на другие потоки (см. [1]). 
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ИМТ ‹2> [Е] К 


функция стр. 16 
округляет числовое значение <2> до ближайшего меньшего целого 
числа. 


Пример: РЕМТИМТ 45.67;" "МТ -—7.66 


45 —8 
ИМУЕВ$Е ‹р>› [Е] $5/М 
оператор стр. 22 


устанавливает режим инвертированного отображения графической 
и символьной информации. Следом за ИМУЕЮ$Е ставится целочис- 
ленное значение ‹р>, которое может равняться либо 0, либо 1. 


После выполнения оператора ИМ\УЕВ$Е 1 при печати символов цвет 
тона и цвет фона меняются местами. Графическая информация 
при включенном режиме инверсии отображается цветом фона и 
становится невидимой. Оператор МУЕЮ$Е 0 устанавливает нор- 
мальный режим цветопередачи. 


В качестве самостоятельного оператора ИЧМЕЮ$Е устанавливает ре- 
жим инвертирования для всех последующих выводов на экран. 


ЧУЕК5Е может также использоваться в операторах РЮМТ, МРОТ, РЕОТ, 
ОКАМ/, СКСЕЕ. При этом устанавливается режим инвертирования 
графической и символьной информации, выводимой только дан- 
ным оператором. В операторах РЮМТ и МРОТ ключевое слово ИМУЕЮ$Е 
размещается в любом месте перед данными, отделяясь от них 
знаками-разделителями (запятая, точка с запятой, апостроф). 


ПЧУЕК5Е в операторах РЕОТ, ОКА\/, СЮСЕЕ ставится сразу за ключе- 
вым словом и отделяется от параметров точкой с запятой. 


ГЕМ <нта> | [Е] к 
функция стр. 17 


возвращает длину (число символов) символьного значения. 


Пример: 120 МРОТ А$; Е 1ЕМ А$>9 ТНЕМ СО ТО 120: ВЕМ «Пропуска- 
ются» строки длиной только до 9 символов 


СЕТ ‹уаг>= г 
оператор стр. 28 


присваивает значение переменной. После 1ЕТ ставится переменная, 
следом за которой через знак равенства записывается присваивае- 
мое ей значение. 


Пример: 60 (ЕТ Х=Х+1 
80 ТЕТ А$="РАТЕВ"+5ТВ$ Х 
90 ЁЕТ $(5,10).ЕМ А$ 


До присвоения переменной значения (операторами (ЕТ, ВЕАВ или 
ИЧРОТ) она является неопределенной и не может быть использована 
в программе. 
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МЕ в. 


См. ЗАУЕ ЗАМЕ, МРОТ. 


Ы$Т [<п>] к 
оператор = стр. 27 


отображает на экране листинг Вей ск -программы, находящейся в 
памяти компьютера. Н$Т без каких-либо значений после ключевого 
слова начинает вывод листинга с начала программы: Указав после 
Ы$Т номер строки <п>, можно начать вывод листинга с требуемого 
места программы. При этом указатель текущей строки уста- 
навливается на строку с номером <п>. 


После заполнения экрана вывод листинга приостанавливается и 
может быть продолжен после нажатия любой клавиши, кроме М, 
5расе, ВгеаК. Перечисленные клавиши прерывают выдачу 
листинга. 


ЦТ #<с> 


_ оператор используется при работе с потоками и каналами (см. И]. 


ТТ [<п>] [Е] У 
оператор стр. 51 


распечатывает на принтере листинг бейсик-программы, находлящей- 
ся в намяти компьютера, начиная со строки <п>. ЕТ без парамет- 
ров распечатывает листинг с начала программы. 


БЫ$Т #‹с> 


оператор используется при работе с потоками и каналами (см. [1]}. 


ЬМ <-> > [Е] 2 


функция | стр. 15 
натуральный логарифм положительного числового значения <2>. 


ГОАО <;нта> — 3 


оператор = ——- | -- | = — стр. 47 


загружает в память компьютера бейсик-программу с магнитной 
ленты. Имя загружаемой программы задается символьным зна- 
чением <$#та>. ЕОАР с «пустым» именем загружает первую 
встрегившуюся на ленте программу. При загрузке ранее находя- 
шаяся в памяти программа уничтожается. 


Пример: ГОАВ "ЕЬЕМАМЕ" 
ГОАР №$ 
ЕОАО #052 
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ТОАО ‹5+та> СООЕ [‹адаг>][,<‹с>] 3... [Е] 1 
оператор стр. 50 


загружает с магнитной ленты в память компьютера блок кодов 
(последовательность байтов). Имя файла, в котором был сохранен 
блок на магнитной ленте, задается символьным значением <5Ннтд>. 


За ключевым словом СООЕ указываются через запятую два цело- 
численных значения: «ад4г> — адрес размещения блока кодов в 
памяти компьютера и <<с> — количество загружаемых байт. При 
ая параметра <<> по приведенному адресу загружается 
весь блок 


Без указания числовых значений оператор КОАО...СОВЕ загружает _ 
блок кодов по адресу, с которого он был записан на магнитную 
ленту оператором 5АУЕ...СОВЕ. 


Промер: КОАО "МАМЕ" СОБЕ 
ГОАО "РСТОУКЕ” СОПЕ 16384, 6912 


ГОАО "" СОБЕ 
ГОАО ‹5нтпа> ОАТА ‹а>[$]{) 3..[Е] 
оператор стр. 49 


загружает с магнитной ленты в память компьютера массив. Имя 
файла, содержащего массив, задается символьным значением 
«знтпа>. Следом за ключевым словом ВАТА указывается однобук- 
венное имя массива <а> с пустыми скобками. Значения, считыва- 
емые с ленты, загружаются в индексированные переменные этого 
массива. 


Пример: КОАО "МОМВЕВ" ОАТА М() 
ГОАО "МАМЕ$" РАТА М$() 


КОАО ‹знта> $СВЕЕМ$ ;...[Е] $$/К 
оператор стр. 49 


загружает с магнитной ленты лок кодов непосредственно в экран- 

ную область памяти, при этом на экране воспроизводится ранее 
записанная картинка. Имя файла, в котором она была сохранена 
на ленте, указывается символьным значением <«5$Нтд>. 


Пример: ГОАО "РСТУВЕ" $СЮЕЕМ$ 


ГРАНТ — ме 
оператор стр. 51 
распечатывает данные на печатающем устройстве. 


Формат оператора зависит от типа принтера и программы, его 
обслуживающей (драйвера принтера). 


Пример: ЕРЕМТ "АВСОЕР” 
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БРЫМТ #<<с> 


оператор используется при работе с потоками и каналами (см. [1}]}. 


"МЕВСЕ <5Нтз> [Е] $$/Т 
попирает 
оператор стр. 48 
подгружает бейсик-программу с магнитной ленты в память компь- 
ютера, не стирая уже находящейся там программы. Имя загружае- . 
мой программы задается символьным значением ‹$мта>. Опера- 


тор МЕЮСЕ с двумя пустыми кавычками подгружает первую встре- 
тившуюся на ленте программу. 


Оператор МЕЮКСЕ соединяет две программы, располагая их строки 
по порядку возрастания номеров. При совпадении номеров строк 
«старые» строки заменяются на «новые». 


МОУЕ 


ключевое слово в зреснит-Бейсике не задействовано. 


ЧЕМ/ А 
оператор 


очищает область памяти, отведенную для размещения и работы 
бейсик-программы (область памяти до адреса, занесенного в 
системную переменную КАМТОР). Параметров не требует. 


МЕХТ ‹:> м 
оператор стр. 37 


ограничивает тело цикла РОКЮ...МЕХТ (не используется отдельно от 
ключевого слова РОЮ). См. РОК. 


ЧОТ $$/5 
логический оператор, функция стр. 35 


Логический оператор 


реализует логическое отрицание условия, стоящего за ключевым 
словом: истинное условие делает ложным, ложное — истинным. 


Пример: 90 Е ЕТ Х=2: Е МОТ Х>10 ТНЕМ РАМТ "УЕ$" 
У\УЕ$ 
Функция 


возвращает 0, если числовое значение, следующее за ключевым 
словом, не равно нулю, 1 — если значение равно нулю. 


Пример: РАМТ МОТ(5*5—25) 
1 
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ОРЕ> #‹с›, "м" 


Е Е ИЕ ЕЕ ЕЕ ЕЕ 
оператор используется при работе с потоками и каналами (см. [1}}. 


ОК $5/0 
логический оператор, функция стр. 35 
Логический оператор 


логическое сложение условий. Комбинация условий, объединен- 
ных одним или несколькими операторами ОК, истинна, если 
истинно хотя бы одно из условий. 


Пример: \ЕТ Х=20: Е Х=50 ОВ Х=20 ТНЕМ РАМТ "УЕ$" 
УЕ5 


Функция 


. возвращает значение, стоящее перед ключевым словом, если 
ее аргумент равен 0; 
‚ возвращает 1, если аргумент не равен 0. 


Пример: РЮАМТ 45 ОК 5 
1 


ОЧТ ‹ааа!г>, ‹Бу+е> [Е] $$/0 
оператор 


записывает в порт целочисленное значение <«Буе> (0...255), адрес 
которого задается целочисленным значением <а@аг> (0...65535). 


Пример: ОЧТ 254,3 


ОУЕВ ‹р>› | [Е] $$/М 
оператор _стр. 22 


устанавливает режим наложения изображений на экране. нае 
ленное значение ‹р> может принимать значения: 


1 — изображение (символьное или графическое) накладывается 
на изображение, уже существующее на экране, не стирая его; 
точки пересечения изображений принимают окраску фона; 


8 — задает режим прозрачности, при котором режим наложения 
соответствует ранее установленному для данного знакоместа; 

О — устанавливает нормальный режим отображения инфор- 
мации. 


В качестве самостоятельного оператора ОУЕВ устанавливает режим 
наложения для всех последующих выводов на экран. 


Ключевое слово ОУЕВ может также размещаться в операторах РЕМТ, 
ИЧРОТ, РЕОТ, ОКАМ\/, СВСЕЕ. При этом режим наложения задается для 
графической и символьной информации, выводимой только дан- 
ным оператором. В операторах РАМТ и МРОТ ключевое слово О\УЕЮ 
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размещается в любом месте блока данных, отделяясь от них зна- 
ками-разделителями (запятая, точка с запятой, апостроф). 


ОУЕК в операторах РЕОТ, ОКА\М/, СЮСЁЕ ставится за ключевым сло- 
вом и отделяется от параметров точкой с запятой. 


Пример: РЕМТ АТ 11,15; "УЕ$"; О\УЕВ 1; АТ 11,15; " ы. 
УЕ$ 


РАРЕКЮ ‹соог> [Е] $$/С 
оператор стр. 21 


устанавливает цвет фона — цвет, в который окрашивается экран. 
Следом за РАРЕЮК указывается целочисленное значение «<союг> в 
интервале от 0 до 9, которым кодируется цвет. 


После выполнения оператора РАРЕК 8 при печати в знакоместо цвет 
фона будет принимать значение, ранее установленное для данного 
знакоместа. РАРЕК 9 устанавливает белый или черный цвет фона в 
зависимости от цвета тона с целью достижения наибольшего 
контраста. 


В качестве самостоятельного оператора РАРЕВ устанавливает посто- 
янный цвет фона, влияющий на все последующие выводы на 
экран (постоянный атрибут). 


РАРЕК может также использоваться в операторах РАМТ, ИЧРОТ, РЕОТ, 
ОКА\\/, СЮСЬЕ, устанавливая временный цвет фона. В этом случае 
РАРЕК влияет на фон знакомест, в которые выводится информация 
только данным оператором (временный атрибут). В операторах 
РАМТ и МРОТ ключевое слово РАРЕЮ размещается в любом месте 
перед данными, отделяясь от них знаками-разделителями (запятая, 
точка с запятой, апостроф). 


Пример: РЕМТИМК 1;"О-О-О!";РАРЕК 5;"КЦ" 


РАРЕК в операторах РЕОТ, ОКА\М/, СЮСЕЕ ставится сразу за ключевым 
словом и отделяется от параметров точкой с запятой. 


РАЦЗЕ ‹+> | м 


оператор стр. 39 


приостанавливает работу программы на время, задаваемое цело- 
численным значением <+> (0...65535). Пауза исчисляется в 1/50 
сек. Прервать паузу можно нажатием любой клавиши. Оператор 
РАЦ$Е 0 продолжит работу программы только после нажатия 
клавиши. 


РЕЕК ‹аааг> _ о 


функция стр. 60 
считывает число в интервале от 0 до 255 (байт) из ячейки памяти. 


Адрес ячейки задается целочисленным значением ‹аадаг> 
(0...65535). 
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р [Е] м 


функция стр. 16 
возвращает значение числа «пи» (3,1415927). Аргументов не тре- 
бует. | 


РЕОТ ‹х›, ‹у> о 


оператор стр. 19 


ставит на экран точку (включает пиксель). Позиция точки задается 
двумя целочисленными значениями, слелующими через запятую 
после ключевого слова: «х> (0...255) определяет горизонтальную 
координату, <у> (0...175) — вертикальную. 


Цвета точки и фона знакоместа, в которое она помещается, опреде- 
ляются постоянными значениями атрибутов либо задаются вре- 
менными атрибутами. Ключевые слова, залающие временные ат- 
рибуты, размещаются непосредственно за ключевым словом РЕОТ 
и отделяются друг от друга и от параметров точками с запятой. 


Пример: 160 РЕОТИМК 2; 1МУЕВЗЕ 1; х‚,у 


РОМТ (<х›, ‹у>) | | [Е] 55/8 


функция 

проверяет состояние пикселя. Если пиксель включен (окрашен в 
цвет тона), функция возвращает 1 и если выключен (окрашен в 
цвет фона), — 0. Координаты пикселя задаются двумя целочислен- 
ными значениями, следующими после ключевого слова в скобках 
через запятую: <х> (0...255} — горизонтальная координата, ‹у> 
(0...175) — вертикальная. 


Пример: 240 Е РОТ (Х,У)=1 ТНЕМ СО $ЦВ 600 


РОКЕ ‹адаг>, <Буе> о 


оператор стр. 62 


записывает в память целочисленное значение ‹Буе> (0...255). 
Адрес ячейки памяти задается целочисленным значением «аааг> 
(0...65535). 


Пример: РОКЕ 23609,255 


РМТ Р 
оператор стр. 8 
выводит на экран данные — числовые и символьные значения, 


следующие за ключевым словом. Перед блоками данных в любом 
порядке могут ставиться ключевые слова, залающие позицию, и 
атрибуты выводимых на экран символов (ТАВ, АТ, МК, РАРЕЮ, ЕЕАЗН, 
ВАСНТ, 1МУЕВ$Е и ОУЕК). Друг от друга ключевые слова и блоки 
данных отделяются знаками-разделителями: точкой с запятой, за- 
пятой или апострофом. 
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Символьные значения оператор РАМТ освобождает от кавычек и 
“выводит на экран. Числовые выражения, стоящие за РАМТ, вы- 
числяются, и на экране отображается результат в десятичной фор- 
ме (не более восьми значащих цифр). Числа больше 108 и мень- 
ше 10-5 отображаются в экспоненциальной форме. 


Пример: РАМТ 500000000 
5Е8 


РАМТ .0000092 
9.2Е—6 


Блоки данных, разделенные точкой с запятой, отображаются опе- 
ратором РЕМТ один за другим без пробелов. Запятая переводит 
текущую позицию печати на середину текущей строки или в 
начало следующей, в зависимости от позиции последнего напеча- 
танного символа. Данные, отделенные апострофом, отображаются 
с новой строки. 


Знак, стоящий в конце оператора РЕМТ, оказывает действие на 
последующий оператор РАМТ. 


Пример: РЕМТ 10-9;2,3'"А$ЗО" 


12 Е 
А$О_ 


Используя параметр #<<> в произвольном месте списка парамет- 
ров и данных оператора РАМТ, можно переключать вывод ВР. 
мации на другие потоки (см. [1]). 


КАМООМЕЕ [‹‹›] т 


оператор стр. 54 
задает начало последовательности случайных чисел, генерируемой 
оператором ЕКМО. Целочисленное значение <с> (1...65535)} задает 
фиксированное начало последовательности. КАМООМИЕ без пара- 
метра либо с нулевым значением задает начало ’последователь- 
ности в зависимости от содержимого системной переменной 
ЕКАМЕФЗ (см. стр. 61). При этом достигается относительная слу- 
чайность начала последовательности. 


ВЕАО ‹уаг>|[, <уаг›> ]... [Е] А 
оператор стр. 43 
присваивает переменным значения, считываемые из списка данных, 
следующих за операторами ВАТА. Переменные указываются через 


запятую за ключевым словом. Тип переменных (числовые или 
символьные) должен соответствовать типу ОАТА-данных. 


Первый в программе оператор КЕАО последовательно считывает 
данные, начиная с первого элемента первого встреченного в прог- 
рамме оператора ВАТА, и присваивает их расположенным за ним 
переменным. Следующий КЕАО продолжает считывание данных. 
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Носледовательность считывания данных может быть изменена опе- 
ратором ЮКЕЗТОВЕ. 


Пример: 20 РЕАО А$, Х 


КЕМ Е 
оператор : стр. 31 
отделяет текст комментариев от текста программы. Следом за КЕМ 
могут стоять любые символы. 


Пример: 50 СО ТО 1000: КЕМ Переход на конец программы 


ВЕЗТОВЕ [‹п>] [Е] $ 
оператор стр. 44 
указывает оператор ОАТА, с которого нужно считывать данные 
следующим по программе оператором КЕАО. Строка, в которой 
расположен требуемый оператор ВРАТА, задается целочисленным 
значением <п>. Если следом за КЕЗТОЮЕ не указано никакого зна- 
чения либо оно равно 0, следующий оператор КЕАР обращается к 
первому в программе оператору ВАТА. 


РЕТИРМ | | у 


оператор стр. 45 


передает управление оператору, следующему за последним выпол- 
ненным оператором ©О $08. 


ЮмМО [Е] Т 


функция | стр. 54 
возвращает псевдослучайное число в интервале: больше или равно 
0 и меныше 1. Аргументов не требует. 

< 


После включения (сброса) компьютера или выполнения оператора 
МЕУ/У функция ЕМО генерирует одну и ту же послеловательность 
случайных чисел. Изменить последовательность можно выполнени- 
ем оператора КАМОВРОМИЕ. 


Пример: РОК 1 ТО 22: РАМТ ВМО: МЕХТ | 


КОМ [<">] | К 
оператор стр. 26 
запускает выполнение бейсик-программы. Строка, с которой нужно 
начать выполнение, задается целочисленным значением «<п>. РОМ 


без параметра запускает программу со строки с наименьшим но- 
мером. 


Перед запуском программы оператор КОМ выполняет СЕЕАЮ, то есть 
обнуляет все переменные и т. д. (см. СЬЕАЮ). 
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ЗАУЕ <знтпз> [ЫМЕ <п>] ЕЕ еее 
оператор | стр. 46 


записывает бейсик-программу на магнитную ленту. Программе 
присваивается имя, залаваемое символьным значением <5#та>. 
Имя должно состоять не более чем из десяти символов и не может 
быть «пустым». При выполнении оператора компьютер выдает 
сообщение: $4а!{ фаре, Феп ргез$ апу Кеу (включите магнитофон, затем 
нажмите любую клавишу). 


В операторе $АУЕ ключевое слово ИМЕ, стоящее после имени прог- 
раммы, указывает, что программа после ее загрузки оператором 
ГОАО будет сразу запущена со строки с номером <п> (автомати- 
чески выполнится оператор ©О ТО <п>). 


Пример: $АУЕ "МАМЕ" ИМЕ 1 


$АУЕ ‹знта> СОРЕ ‹ачаг>, ‹<> 5-Е 


оператор стр. 50 


сохраняет на магнитной ленте блок кодов (последовательность бай- 
тов). Имя файла, в который записывается блок, задается символь- 
ным значением «5Нтз>. Имя должно состоять не более чем из 
десяти символов и не может быть «пустым». 


За ключевым словом СООЕ указываются через запятую два 
целочисленных значения: <аааг> (0...65535) — адрес размещения 
блока кодов в памяти компьютера и <с> — количество вхолящих в 
него байт. 


Пример: $АМЕ "РСТИВЕ" СОРЕ 16384,6912 


$АУЕ ‹5нта> ВАТА ‹а>[$]()_ $.-[Е] В 
оператор стр. 49 


сохраняет на магнитной ленте массив. Имя файла, в котором сохра- 
няется массив, задается символьным значением <«$нта>». Имя дол- 
жно состоять не более чем из десяти символов и не может быть 
«пустым». Затем следуют ключевое слово ВАТА и имя массива <а> 
(буква или буква со знаком $) с пустыми скобками. 


Пример: 450 ЗА\Е "МОМВЕВ5" ОАТА №() 


оператор стр. 49 


записывает на магнитную ленту экранное изображение. Имя 
файла, в котором сохраняется экранное изображение, задается 
символьным значением <з$Нта>. Имя должно состоять не более чем 
из десяти символов и не может быть «пустым». 
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$СВЕЕМ$ (‹гом>, <со!>) [Е] $$ /К 
функция 


возвращает символ, помещенный в указанном знакоместе экрана. 
Позиция знакоместа задается двумя целочисленными значениями, 
следующими в скобках через запятую следом за ключевым словом: 
«го\м> (0...21) — номер строки, <со> (0...31} — номер столбца. 


Возвращаются только символы набора, на который указывает 
системная переменная СНАК$. При несовпадении изображения в 
знакоместе ни с одним из символов набора функция $СКЕЕМ$ 
возвращает «пустую строку». 


Пример: 160 1Е $СВЕЕМ$(14,19)=" +" ТНЕМ РЮМТ АТ 14,19; "$" 


$СМ ‹2> [Е] Е 
функция стр. 16 
определяет знак числового значения. $МС возвращает: 

1 — если аргумент положителен, 
—1{ -— если аргумент отрицателен, 


О — если аргумент равен 0. 


УМ ‹а> [Е] © 


функция Е | стр. 15 
вычисляет синус угла <а>, заданного в радианах. 


$О И ‹;> [Е] н 


функция стр. 15 
вычисляет квадратный корень числового значения <2>. 


$ТЕР $$/0 
оператор — стр. 37 
используется для построения цикла РОК...МЕХТ (см. РОК). 


$ТОР — $$/А 
оператор стр. 33 
останавливает выполнение бейсик-программы. Параметров не тре- 


бует. После остановки программы ее выполнение может быть 
продолжено оператором СОМПИМУЕ с оператора, слелующего за $ТОР. 


СПРАВОЧНИК 


_$ТВ$ ‹:> [Е] У 


функция стр. 17 
преобразует числовое значение <2> в символьное. 51$ возвращает 
значение аргумента в виде символьной константы. 


Пример: РЮМТ ЁЕМ $ТЮ$ 100 
Е 


ТАВ ‹со> [Е] Р 


оператор стр. 14 


задает позицию вывода на экран в текущей строке. Целочисленное 
значение <со> (0...31}) указывает номер колонки. Если <со> мень- 
ше текущей позиции вывода, символ помещается в заданную 
позицию, но строкой ниже. ТАВ используется только совместно с 
операторами РАМТ и МРУОТ. 


Пример: РАМТ ТАВ 1;"А”;ТАВ 5;"В";ТАВ 3;"С" 


А В 
с 


ТАМ ‹з> [Е] Е 


функция стр. 15 
вычисляет тангенс угла ‹а>, заданного в радианах. 


ТНЕМ $$/6 
См. Ш. 

ТО- рее | —-— $$/Е 
оператор, функция стр. 16 
Оператор 


используется для построения циклов РОК...МЕХТ (см. РОК). 
Функция 


выделяет подстроку (выполняет сечение) символьного значения. 
Начальная и конечная позиции сечения задаются двумя цело- 
численными значениями, которые записываются через ключевое 
слово ТО в скобках следом за символьным значением. 


По умолчанию первый аргумент принимает значение, равное 1, 
второй — равное длине символьного значения. 


_ Пример: РЮМТ "Бу-ОИ"(2 ТО 4) 
и-о 
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Ц$В НЕ]. 
функция стр. 56 
С цепочисленным значением <аа4:> 


передает управление подпрограмме в машинных кодах, располо- 
женной по адресу <аачг> (0...65535). После выполнения подпрог- 
раммы возвращает содержимое регистровой пары процессора ВС. 


Пример: КАМООМШЕ 0$ 65000 
С символьным значением 


возврашает адрес первого из восьми байтов, задающих изобра- 
жение символа, определяемого пользователем. Следом за Ч5® ука- 
зывается односимвольное значение, соответствующее одной из 21 
клавииг (от А до Ц). 


Пример: РЕМТ 058 "а" 


65368 
УАЕ ‹нта> [Е] 3 
функция стр. 17 


преобразует символьное значение, представляющее собой символь- 
ную запись числового значения, в числовую константу. 


Пример: РЕМТ УАЕЁ "3+5"—5 
Е 


\АЕ$ "‹5нта>" [Е] 55/3 


функция 

возвращает строку символов, представляющую собой результат 
вычисления символьного выражения, записанного в виде символь- 
ной константы. 


Пример: 10 ЕТ А$="5$$": ВЕТ.В$ =" гг" 
20 ЕЕТ С$="А$+""0""+в$" 
20 РАМТ С$, УАЕ$ С$ 


А$-+"”О”-+В$ $50 


УЕШЕУ ‹з1гта> | [Е] $$/В 
оператор -- стр. 47 
преверяет правильность записи программы на магнитную ленту. 
Имя проверяемой программы задается символьным значением 
<5+тта>. Если одноименные программы: программа, записанная на 
магнитной ленте; и программа, находящаяся в памяти компьютера, 
не совпадают, то выдается сообщение об ошибке: Таре юадтд еггог. 


С помощью операторов _ УЕВРУ\У...РАТА,__ УЕЮЕУ...5СВЕЕ$ и 
УЕЮКРУ...СООЕ можно проверить правильность записи массивов, 
экранного изображения и блоков кодов, указав после имени прог- 
раммы соответствующее ключевое слово с параметрами. 
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Тематический указатель 


Управление интерпретатором 


перезапуск интерпретатора.................. НЕЕ, ия Стр. 
запуск программы...................нз.ньннно. в. Стр. 
останов программы .................нннннни.. а Стр. 
продопжение выполнения программы .... СОМИМИЕ............ Стр. 
пауза в программе ................... 4..1... РАЦЗЕ кс: Стр. 
удаление переменных .............. нь... СТЕК ен Стр. 
отделение комментариев от текста 

ПРОБЕЛЫ ен Ем Стр. 


Управление программой 


ветвление при выполнении заданного 
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33, 92 
33, 74 
39, 87 
65, 73 


31, 90 


УСРЕЕЕ: ее 1... ТНЕМ............. Ст. 33.29 
переход к заданной строке .................. я Стр. 32, 2% 
вызов подпрограммы .................ннннь.. СО $568............... Стр. 45, 79 
возврат из подпрограммы ................... РЕТОВМ ............... Стр. 45, 90 
вызов подпрограммы в кодах............... (ЕЕ Стр. 56, 94 
программный цИКП ............ зи чиенииь» РОЮ...5ТЕР...МЕХТ. Стр. 37, 78 
Операторы присваивания 

присвоение значения переменной.......... БЕ а Стр. 28, 82 
задание массива................... ин аннинь» т’ РН Стр. 41, 75 
задание списка данных........................ О Е Стр. 43, 74 
считывание списка данных.................... ВЕАБ.......-. Стр. 43, 89 
изменение последовательности 

считывания списка данных.................... РЕЗТОВЕ ............. Стр. 44, 90 


Вво анных с клавиатуры 


ввод данных в программу.................... ря Стр. 

ВВОД ОДНОГО СИМВОЛа .................:ннниньь НКЕУ$................ Стр. 
Звук 

воспроизведение ноты ........................ в... Стр. 
Вывод символов на экран 

вывод символьных данных.................... РТ... Стр. 

задание знакоместа вывода.................. Ее Стр. 

задание позиции вывода в строке .......... ЗАВ. Стр. 

вывод листинга программы.................. Е. Стр. 

очистка экрана........................нннниние, Е Стр. 
Графика 

включение пикселя ............................ = Стр. 


31, 81 
39, 80 


40, 71 


8, 88 
14, 71 
14, 93 
27, 83 
21, 73 


19, 88 
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построение прямой ипи дуги ................ 
построение окружности .................н.... 
опредепение состояния пикселя ............ 


Атрибуты экрана 


инвертирование изображения ............... 
наложение изображения ..................... 
определение атрибутов знакоместа........ 


Алгебраические функции 


арккосинус ....... р 
а а 
а Е 
квадратный корень ....................зееннье, 


модуль ЧИсСЛа............. зоо оньооньаоноь 
знак числа ................ оо зовиноонооваоное 
округпение числа .................. осо оваеоь 
перевод двоичного числа в десятичное ... 


Пользовательские функции 
задание функции.............. и ченииининнне» 
вычиспение значения функции .............. 


Логические операции 
логическое умножение ....................... 
о дк РОЖИ ТЯ: ЗОРАЕЕЕ ВА 
логическое сложение ..........:.......ьць.е. 


Случайные числа 


начало поспедовательности 
случайных чисеп..................ннннннинь, 


псевдоспучайное чиспо ....................... 
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СПРАВОЧНИК 


Символьные (строковые} функции 


ДАНИЯ СТРОК акки очен кижаьь в 

выделение фрагмента строки............... Е ЕЕ 

считывание символа из знакоместа......... $СВЕЕМ$.............. 

преобразование числа в строку............. с 

преобразование строки в чиспо............. а. 

преобразование символьного значения в 

символьную константу ........................ = 

симвоп, соответствующий коду ............. о 

код, соответствующий символу ............. Е. 
Операции с ячейками памяти 

чтение чиспа из памяти ...............чнньньь, РН = 

запись числа в память........... ци. ннинь. РОК. 

адрес размещения симвопов, 

определяемых пользователем............... зи ......... 

_ Работа с портами 

чтение из порта ................ зн икиннинь» и... 

ЗаниеБ 5 ПОР нее: ОБТ... 


Работа ‹ магнитофоном 
Загрузка программ 


загрузка бейсик-программы................, ОА 
загрузка блока кодов.................... нь... ГОАО...СООЕ....... 
загрузка массива... оаьинекьава ГОАО...ОАТА....... 
загрузка экранного изображения........... ГОАО...$СВЕЕМ$ ... 
подгрузка бейсик-программы............... МЕРЕ... 
Сохранение программ 
сохранение бейсик-программы ............. АЕ. 
сохранение бпока кодов ...................... $АУЕ...СОБЕ ....... 
сохранение массива .................:.... чине, 5АУЕ...ОАТА ....... 
сохранение экранного изображения ....... $АУЕ...5СКЕЕМ$ ... 
проверка правильности записи .............. Е Е 
Вывод на печатающее устройство 
печать символьных данных ................... СЕРЫ... 
печать листинга бейсик-программы ........ Е: 
печать копии экрана........................... м 


4 Зак. № 192 
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Сообщения об ошибках 


При обнаружении ошибки интерпретатор останавливает выпол- 
нение программы (или бейсик-оператора, набранного в непосрелд- 
ственном режиме) и выводит в нижней части экрана соответству- 
ющее сообщение. Каждое сообщение содержит код (цифру или 
букву), указание на причину ошибки и номер строки и оператора 
в ней, на котором остановилось выполнение программы. 
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Успешное завершение программы или попытка перейти на 
строку с номером, большим любого, имеющегося в программе. 


МЕХТ мИНВои! РОВ МЕХТ без РОК 
встречен оператор МЕХТ без соответствующего РОК. 


УапаЫе по} фоипа переменная не найдена 


переменная была использована без присвоения ей значения или 
загрузки значения с ленты. 


$и65с р! мгопд неправильный индекс 
значение индекса вышло за границу размерности массива. 

Оц{! о{ тетогу нет памяти 
не хватает памяти для выполнения оператора. 

Оц{ оф ;сгееп выход за экран 


оператор МРОТ сгенерировал более 22 строк в нижней части 
экрана, или в АТ был использован номер строки, превышающий 
2Е. 


МитЬег 10 ЫЗ чиспо спишком вепико 


в результате вычислений получается число больше 1,7-1038 
(возможно, была попытка деления на 0). 


РЕТИЮМ мНРои! СО$ИВ РЕТОЮКМ без ©О $0В 
число операторов ЮКЕТУЮМ больше числа СО $8. 

ЕпЯ о{ #е конец файла 
сообщение в 5реснит-Бейсике не используется. 

5ТОР $1а1етеп} оператор $ТОР 


был использован оператор $ТОР для остановки программы. 
СОМПИМУЕ продолжит выполнение со следующего оператора. 


{пуаНЯ агдитеп+ недопустимый аргумент 
функция получила недопустимое значение аргумента. 
|п1едег оц}! о{ гапде округление вышло за границы 


значение было округлено до ближайшего целого и не попало в 
допустимый диапазон. 


СПРАВОЧНИК 


Мопзепзуе т ВА$!С бессмысленно в Бейсике 
оператор не имеет смысла с точки зрения бреснит-Бейсика. 
ВВЕАК — СОНТ гереа#5 — прерывание — СОМТМОЕ повгорит 


останов но клавише Вгеак. СОМПМОЕ повторит оператор, при 
выполнении которого произошло прерывание, 


Си! о{ РАТА_ нет данных 


количество считываний данных операторами РКЕАБР превысило 
количество элементов данных в операторах ОАТА. 


фпуаНа {е пате недопустимое имя файла 


в операторе 5АУЕ указано недопустимое имя файла (меньше 
одного символа или больше 10 символов) либо использовано 
недопустимое имя канала в онераторе ОРЕМ# (см. [1]. 


Мо гоот фог те нет места для строки 


не хватает свободной памяти для ввода новой строки программы. 


$ТОР ш МРУТ | ТОР в операторе ИМРУТ 
ввод $ТОР на запрос оператора ИЧРОТ. 
РОВ Во! МЕХТ РОК без МЕХТ. 


_ число операторов МЕХТ меныше числа операторов РОК, и однов- 
ременно некорректно заданы предельное значение управляю- 
щей переменной и шаг ее изменения. 


—туаНЗ Г/О деуке недопустимое устройство ввода/вывода _ 
сообщение, используемое при работе с каналами и потоками (см. 


ИР: 
ЧтуаНа союиг — недопустимый цвет 


залано недопустимое : значение в К, РАРЕВ. РАЗН, ИМУЕК$Е или 
_ ОУ\УЕЕ, или использован недонустимый управляющий символ. 


ВРЕАК по ргоадгат | прерывание программы 


нажата клавиша ВтеаК. В сообщении указывается оператор, 
_ выполненный последним. Оператор СОМИМОЕ продолжит выпол- 
нение программы со следующего оператора. 


ВАМТОР по дооа недопустимый КРАМТОР 


значение, занесенное в системную переменную КАМТОР, слиш- 
ком мало. 


$1а1етеп! 05+ | нет оператора 


была предпринята попытка перехода на несуществующий оне- 
ратор. 


{зуаНЯ $НКеат недопустимый поток 


сообщение, используемое при работе с потоками (см. Е 


ЗРЕСТКОМ-ВАЗС 


р РЕМ мИпоц+ ОЕР ЕМ без ОЕР 
вызов функции пол ъзователя без ее определения. 


С Рагатефт егтог ошибка в параметрах 


оператор РЕМ содержит неверное количество параметров, или 
один из них имеет значение неправильного тина (например, 
символьное вместо числового или наоборот). 


в Таре юаата еггог ошибка при загрузке < ленты 


неудачно прошла процедура загрузки, подгрузки или проверки 
файла. 


Символы 2Х $реснит" 


Таблица 1. 


Коды 0..,31 управляют выводом информации на экран и называются контроль- 
ными (см. табл. 2). 
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СПРАВОЧНИК 


23| СОМПМОЕ 


Контрольные коды 7Х $реснит 


Таблица 2. 
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ЗРЕСТКОМ-ВАЗС 
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©С$/2 Установка позиции печати на середину экрана 
(аналогично запятой в РЕМТ) 
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КОМПИЛЯТОРЫ 
ЗРЕСТВОМ-БЕЙСИКА 


В начале книги, помимо интерпретации, упоминался еще один 
способ перевода программ с языков высокого уровня на язык 
кодов процессора — компиляция. Главное преимущество этого 
способа — увеличение быстродействия программ. 

7Х 5ресйит может порадовать программистов тем, что для него 
создано множество различных компиляторов Бейсика, от самых 
простых целочисленных, не «переваривающих» дробные числа и 
понимающих лишь ограниченный набор ключевых слов, до мощ- 
ных, которые, кроме поддержки почти всех операторов базового 
интерпретатора, реализуют еще и некоторые дополнительные 
инструкции. 

Но, к сожалению, компиляторы 5ресиит-Бейсика не удовлетво- 
ряют всем требованиям, предъявляемым к подобного типа прог- 
раммам. Например, ни один из них не поддерживает полный 
набор инструкций интерпретатора. Кроме того, (и это, пожалуй, 
самое неприятное) оттранслированная программа не работает без 
присутствия в памяти компьютера самого компилятора. Дело в том, 
что любой компилятор содержит так называемые библиотеки 
системных процедур — набор подпрограмм в машинных кодах. 
Компиляторы, реализованные на компьютерах более высокого 
класса, как правило, вставляют в оттранслированный текст лишь 
те системные процедуры, которые нужны именно в данной прог- 
рамме. Авторы же компиляторов Зресииат-Бейсика решили не 
усложнять себе задачу, и в результате написанные ими продукты 
«навентивают» на отгтранслированную программу все, без выбора, 
системные процедуры, а заодно и саму процедуру компиляции. А 
от такого упрощения — лишь дополнительный расход памяти. 


Теперь коротко о том, какие компиляторы и почему будут описа- 
ны в этой главе. Мы решили ограничиться программами с безуп- 
речной репутацией. Именно поэтому в книгу не включено 
описание пакета Тоо!кИ/В]а$ склонного (в том виде, в каком он 
дошел до нашего Отечества) к непредсказуемому поведению, не 
соответствующему его блестящей аттестации в фирменном 
описании. Еще мы старались отобрать достаточно непохожие друг 
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КОМПИЛЯТОРЫ 


на друга компиляторы, занимающие свою собственную «эко- 
логическую нишу». Так, целочисленный 7Х-Сошрпег у.1.0 — са- 
мый простой и наименее совместимый по синтаксису с интерпре- 
татором, но он же и самый короткий. МСо4ег 2 занимает в памяти 
почти в два раза больше места, но, в отличие от 7Х-СотшрнНет, 
понимает, что такое числовые массивы. ЗоНек 15 массивы не 
«переваривает», но поддерживает несколько новых инструкций, 
неведомых интерпретатору. ЗоЙйек РР является простейшим из 
компиляторов, умеющим правильно делить один на два, а Тофоз ЕР 
наиболее близок по синтаксису к интерпретатору (список 
ограничений минимален), но считает дробные числа с точностью 
не до восьми, а лишь до семи значащих цифр. Так что имеет смысл 
познакомиться с каждым из перечисленных компиляторов, чтобы в 
конкретном случае найти оптимальный компромисс между скоро- 
стью работы скомпилированной программы и ее возможностями. 


И все же, несмотря на 
различия, описанные в книге 
комниляторы имеют немало об- 
щих черт. Но текст описаний не 
выиграл бы от многочисленных 
перекрестных ссылок от одного 
компилятора на другой. Поэто- 
му мы старались (а удалось ли 
— судить читателю) найти золо- 
тую середину между требова- 
нием автономности каждого 
‚описания и стремлением не 
повторяться. 


Несколько слов о структуре 
этой главы. Сначала будут рас- 
смотрены три целочисленных 
компилятора, а затем еще два, 
поддерживающие работу с 
дробными числами. Специаль- 
ный раздел посвящен записи 
готового программного продук- 
та на магнитный носитель. 
Справочный материал, касаю- 
щийся совместимости синтак- 
сиса компиляторов и интерпре- 
татора, приведен в Приложе- 
нии 1. Основные «тактико- 
технические» характеристики 
рассматриваемых — компилято- 
ров содержит Приложение 2. 

Разные компиляторы могут 
иметь одинаковые или похожие 
названия, и, наоборот, одна и 
та же программа может встре- 
чаться под разными именами. 
Поэтому при рассмотрении 
очередного компилятора будут 
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7Х-Согппрйег 


оговариваться его отличительные. 
особенности, а также, по возмож- 
ности, неречисляться различные 
имена, под которыми он встреча- 
ется. 

Компилятор диалекта Газет- 
Ваз1с рассмотрен в соответствую- 
щей главе. Впрочем, он может 
применяться и для компиляции 
обычных бейсик-программ, 


Последнее замечание адресо- 
вано владельцам лисковой оне- 
рационной системы ТВ-РО$. Все 
рассматриваемые компиляторы 
не поддерживают инструкции 
обращения к дисководу. Сущест- 
вующие «дисковые» версии 
компиляторов умеют лишь загру- 
жаться с диска. 


ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ 


2Х-Сотрйег 


7Х-Сотр!ег у.1.0* — один из первых компиляторов ЗресНит- 
Бейсика, почти ровесник 5рессу. Он также известен под именем 
Пицедег Сотр!ет, или просто СотрПег. 


После загрузки программа предложит нажать любую клавишу, 
и если последовать ее совету, то автоматически выполнится опера- 
тор МЕ\\": картинка пропадет, и на экране появится строчка 


© 1982 $таат ЮезеагсА Ша. 


Эта особенность загрузки 7Х-Сотр!ег обычно вводит в заблуж- 
дение неопытных программистов, которые воспринимают ее как 
сброс компьютера. В действительности же все идет по плану: 
область бейсик-программы очистилась от загрузчика, а собственно 
компилятор остался в неприкосновенности**. 

Оператор МЕМ/И можно выполнять и самостоятельно для быстрого 
удаления текста исходной бейсик-программы. При этом и 
компилятор, и скомпилированная программа остаются не- 
тронутыми. 


Фирма ТьгеНа! & Ноарзоп, 1982 г. Файлы: СОМРИЕВ (тип ВА$!С, длина 875 байт) 
и СОМРИ.ЕК (тип СОБЕ, длина 3600 байт, адрес загрузки 59990). 


** Так ведут себя после загрузки многие компиляторы З$рес1гит-Бейсика. 
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ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ 


После загрузки компилятор с пакетом рабочих процедур расно- 
лагается в памяти с адреса 59990 по 63590. Содержимое этой 
области изменять нельзя. 


Исходный текст программы на Бейсике вводится обычными 
способами: с клавиатуры, с ленты, с диска. Бейсик-программу 
можно редактировать, запускать на исполнение и т. п. Присут- 
ствие в памяти компилятора никак не отражается на работе интер- 
претатора 5ресиат-Бейсика, если не считать некоторого умень- 
шения объема доступной ему памяти. 

Объемы исходного бейсиковского текста и-скомпилированной 
программы задаются установкой КАМТОР. Напомним, что эта 
системная переменная ограничивает «сверху» область, предназна- 
ченную для бейсик-программы. С другой стороны, значение 
ВАМТОР, увеличенное на единицу, определяет адрес, с которого 
после компиляции будет размещена скомпилированная программа 
(см. табл. 3 на стр. 121). Заранее (то есть до компиляции} трудно 
подобрать оптимальное расположение. КАМТОР, так как предска- 
зать в точности размер скомпилированной программы 
практически невозможно. Обычно он близок к размеру исходного 
текста, несколько превышая его. Поэтому первоначально 7.Х- 
Сотр!ег устанавливает КАМТОР на адрес 39999. При необ- 
ходимости значение КАМТОР в любой момент можно изменить 
обычным способом, введя с клавиатуры оператор: 


СТЕАК АБОК 


— где АООВ — требуемое значение КАМТОР. 

При завышенном значении КАМТОР может возникнуть ситу- 
ация, когда оттранслированной программе не будет хватать отве- 
денного для нее места. В этом случае компилятор прервет работу и 
выдаст сообщение: 


Оч о{Ё тетогу 


Попробуем скомпилировать бейсик-программу с большим вре- 
менем выполнения, например: 


10 СЕ$ 

20 РОК А=О ТО 175 
30 РОК В=0 ТО 255 
40 РЁСТ В, А 

50 МЕХТ В: МЕХТ А 


Эта программа последовательно, точка за точкой, закрашивает 
экран цветом тона. Нужно запастись достаточным терпением, что- 
бы, запустив ее оператором ЮУМ, дождаться сообщения 0СК. 
Прибегнем к помощи компилятора. 

Запускается 7Х-Сотр!ег оператором 


КРАМООМИШЕ 15 60000 


Компиляция осуществляется в два прохода. Второй проход ну- 
жен для того, чтобы правильно расставить адреса переходов и 
зарезервировать память для хранения переменных скомпилиро- 
ванной программы (последние, как и переменные бейсик-прог- 
рамм, хранятся сразу после основного текста). В процессе компи- 
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2Х-Сотрйег 


ляции в исходном тексте могут быть обнаружены синтаксические 
ошибки: наличие инструкций, законных с точки зрения интерпре- 
татора, но не поддерживаемых компилятором. Ошибки отлавлива- 
ются, как правило, на первом проходе, при этом компиляция 
останавливается и на экран выводится часть «дефектной» строки 
до «ошибочного» оператора, помеченного знаком вопроса. 


В процессе каждого прохода на экран выводится текст исходной 
программы. После успешного завершения первого прохода необ- 
ходимо нажать любую клавишу (кроме $расе). Нажатие $расе или 
ВгеаК (С$/5расе) прервет процесс, и компьютер перейдет в режим 
интерпретатора. 

Компиляция сопровождается также отображением в верхней 
части экрана адреса окончания скомпилированной на данный 
момент части программы. Это число достигает своего максималь- 
ного значения в конце второго прохода. 

Итак, компиляция кашего примера успешно завершилась сооб- 
щением 0 ОК. 

По адресу конца скомпилированной программы (для рассма- 
триваемого примера он равен 40123) можно рассчитать ее длину: 


40123—(ВАМТОР+1) 


Подставив значение КАМТОР, равное 39999, получим число 
123. Аля сравнения, исходная программа на Бейсике вместе с 
переменными занимает 117 байт. 

Запускается скомпилированная программа оператором 


РАМООМИЕ Ц5$Ю (КАМТОР+1) 


Аля запуска нашего примера введем с клавиатуры 


КАМООМШМЕ Ц5К 40000 


Не правда ли, впечатляющее зрелище? Программа, на выпол- 
нение которой интерпретатору требовалось почти 6 минут, в ском- 
пилированном виде выполняется за 22 секунды! 

Да, действительно, целочисленные компиляторы, к которым от- 
носится 7Х-СотшрЦег, обеспечивают поистине фантастическую 
скорость выполнения операций. Кроме того, приведенный пример 
не может в полной мере продемонстрировать эффективность ком- 
пилятора, так как скорость выполнения программ, использующих 
вывод на экран графики, сильно ограничена быстродействием 
подпрограмм ПЗУ. Трансляция программ, выполняющих только 
арифметические операции, дает гораздо болыний выигрыш во 
времени. Например, следующая программа: 


10 СЕТ С=0 

20 РОЮ А=0 ТО 175 
30 РОК В=0 ТО 255 
40 ГЕТ С=С+1 

50 МЕХТ В: МЕХТ А 


после компиляции будет работать уже более чем в 80 раз быстрее 
оригинала! 
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ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ 


Однако за к высокую скорость приходится дорого рас- 
плачиваться: 2Х-Сотр!ег предъявляет довольно жесткие требова- 
ния к исходному тексту программы. 

После включения в текст программы, например, оператора 
ОМ А(10), на первом же проходе компилятор с недовольным гу- 
дением остановит трансляцию и выдаст сообщение 
Мопзепзе т ВАЗС, указав место ошибки мигающим знаком $. Прог- 
раммный курсор в этом случае расположится в строке, содержа- 
щей ошибку, так что для вызова ее на редактирование достаточно 
будет нажать ЕЧИ (С$/1). 

Существует ряд корректных с точки зрения стандартного Бей- 
сика операторов и функций, компиляцию которых 7.Х-Сотр!ег не 
поддерживает. Их исчерпывающий перечень приведен в Прило- 
жении 1. Здесь лишь пробежимся по этому списку. 

Разумеется, не поддерживаются функции, возвращающие, в 
общем случае, нецелочисленный результат ($, СО$, ТАМ, АЗМ, АС$, 
АТМ, М, ЕХР), а также вызов числа Р1. Исключением является функ- 
ция $ОК, но при ее расчете отбрасывается дробная часть результата. 
То же самое происходит и при выполнении операции деления. Не 
допускается использование в исходном тексте операции возведения 
в степень и функций, определяемых пользователем (ОЕР РЕМ, ЕМ). 

Не поддерживается работа с символьными переменными, и, 
следовательно, нельзя включать в текст бейсик-программы функ- 
ции УАЁ, УАЕ$, $СРЕЕМ$, 1ЕМ, $Т®$ и оператор МРОТ с ключевым 
словом НМЕ. Опрос клавиатуры с помощью функции 1МКЕУ$ в 
таком случае возможно реализовать только «в тандеме» с 
функцией СОГЕ, например: 


ЕТ с = СОБбЕ ИМКЕУ$ 
РАМТ СОБЕ №МКЕУ$ 


Не допускается работа с массивами, как числовыми, так и 
символьными, вне зависимости от их размерности. 

Запрещено применение операторов СО ТО и СО $3В с перемен- 
ной или выражением в качестве параметров. Номер строки, к 
которой осуществляется переход, можно указывать только в явном 
виде — числом. 

Выражения, используемые в качестве аргументов функций, во 
всех случаях должны быть заключены в скобки, например: 


СЮСЬЕ Х, (\+16), 10 


или 
РЕМТ АТ (А+1), (2+8) 


Не поддерживаются логические операции (МОТ, ОВ, АМО). 

Функция КМО генерирует значения в диапазоне от 0 до 32767. . 

Оператор $ТОР, независимо от его местонахождения в програм- 
ме, трактуется как ограничитель текста программы. Весь текст 
после этого оператора при компиляции игнорируется. 

Запрещены операторы $АУ\УЕ, ЦОАО, СОМПМОЕ, СЬЕАК, Ц$Т, МЕМИ, 
КРАМООМИТЕ. 

Результат функции Ц$® с символьным аргументом выдается в 
скомпилированной программе в так называемом «дополнительном 
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| 2Х-Сотрийег 


коде» в диапазоне от —32768 ло +32767*. Например, оператор 
РАМТ 95® “А” выводит на первый взгляд странный результат; —-168 
(вместо привычного 65368). Аля чисел в диапазоне от 0 до 32767 
лополнительное представление числа совпадает с обычным. Для 
чисел в диапазоне от 32768 до 65535 пересчет из одной формы | В 
другую следует производить по формулам: 


№1=м№М2-65536 {42=32767...65535)} 
№2=41+65536  (М\1=-32768...0) 


— где М1 — дополнительное представление числа №2. Функция 
9$В с символьным аргументом — это единственный случай, когда 
приходится помнить об этом, поскольку для инструкций РОКЕ и 
РЕЕК, а также для 95® с числовым аргументом допустимо указывать 
значения аргументов как в обычном, так и в дополнительном 
представлении. 

Операторы РЕАР и ОАТА работают без особенностей, однако 
КЕЗТОКЕ употребляется только с параметром. 

Все компиляторы 5реснат-Бейсика позволяют включать в текст 
компилируемой программы обращения к подпрограммам в 
машинных кодах, осуществляемые с помощью функции Ц$Ю. Одна- 
ко поскольку 7Х-Сотр!ег не поддерживает оператор КАМООМ!Е, а 
также не допускает использования выражений в качестве парамет- 
ров операторов ФО ТО и СО $8, наиболее часто употребляющиеся 
формы КАНМООМИШЕ Ц5$Р ‹адрес>, ФО ТО Ц5$Ю ‹адрес> и 
СО $0В Ц$® ‹адрес> трактуются как ошибочные. Приходится исполь- 
зовать другие операторы, например: 


РАМТ 05 ‹адрес> 
ТЕТ М=0$® ‹адрес> 


Здесь нелишне напомнить, что функция Ц5$® при использовании 
ее для обращения к процедурам в машинных кодах возвращает 
интерпретатору содержимое ‘регистровой пары ВС, которое 
воспринимается как параметр оператора, предшествовавшего Ц5$В. 
Так, оператор 1ЕТ М=0$® ‹адрес> присвоит переменной М значение, 
содержащееся в регистровой паре ВС, оператор РАМТ 158 выведет 
его на экран и т. п. 


Несмотря на то, что 7Х-СотрИет по природе своей может рабо- 
тать только с целыми числами, все же для параметров оператора 
ВЕЕР он делает исключение. Ведь использование ВЕЕР теряет смысл, 
если, например, длительность звука нельзя сделать меньше секун- 
ды. Поэтому 7Х-СотриИег нозволяет задавать параметры ВЕЕР в виде 
натуральных дробей, например, так: 


ВЕЕР 1/10, (п+1/8) 


У читателя может возникнуть вопрос: «Стоит ли вообще пользо- 
ваться таким компилятором, как /Х-СотрИег?» Действительно, 
нужен ли этот самый старый, самый «ограниченный» и не самый 
быстродействующий компилятор? Все перечисленные недостатки 


* Это происходит потому, что старигий бит двухбайтового числа трактуется не как 


значащий разряд, а как знак: 0 — плюс, 1 — минус. 
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ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ _ 


‘можно простить за одно лишь достоинство 2Х-Сотр!ет, которое в 
некоторых случаях может оказаться решающим: он занимает в 
памяти почти в два раза меныше места (всего 3600 байт), чем 
наименьший из других компиляторов, описываемых в этой книге. 


О том, как записать скомпилированную программу на внешний 
носитель и снабдить ее программой-загрузчиком, то есть сделать 
из нее законченный программный продукт, будет сказано в разде- 
ле, специально посвященном этому вопросу (см. стр. 120}. 


МАСоег 2 


Компилятор МСо4ег 2” — вторая версия 2Х-СотрНИе!, 
значительно превосходлящая своего предшественника. Основным и 
неоспоримым достоинством МСофег 2 является возможность рабо- 
ты с одномерными числовыми массивами и символьными пере- 
менными. В остальном список особенностей компилятора почти 
совпадает с соответствующим списком ДХ- ор ВЕ подробно — в 
РРИАОЖЕНИЙ ЕЕ 


‹ не поддерживаются математические функции 5$, С0$, ТАМ, 
— АЗМ, АС$, АТМ, М, ЕХР, Р, функции МАЕ, _МАЕ$ и _функции, 
определяемые пользователем ({РЕР РМ, РМ); 
недопустимо использование переменных или выражений в 

_ операторах ©О ТО и СО $58; 

‹ допускаются все варианты применения Рижния У$® для вы- 

зова внешних процедур в машинных кодах, кроме 
_ _ @СО ТО Ь$В <адрес> и СО $8 0$К <адрес>: 

‹ выражения, используемые в качестве параметров операторов 
- РЕОТ, ОВАМ/ и СЮСЕЕ сы быть заключены в рРЕАЫЕ 

скобки; 

‹ не поддерживаются логические операции (мот, АНО**. ОК}; 
оператор $ТОР рассматривается как ограничитель текста прог- 
раммы, и весь последующий текст игнорируется:  - 
не поддерживаются операторы $А\УЕ, ЕОАБ, СОТНЕ, НТ, НЕМА. 
а также СЕЕАК с параметром; - 
операторы ВЕАО и БАТА работают, как в стандартном Бейсике, 
однако КЕЗТОРЕ не может употребляться без параметра; 

° в параметрах ВЕЕР можно использовать натуральные дроби 


® 


® 


После загрузки компилятора КАМТОР устанавливается на адрес 
39999. В процессе работы значение КАМТОР можно изменять опе- 
ратором СЬЕАЕ «новое значение». Скомпилированная а 
разментается с адреса КАМТОР+Е. 

Компиляция запускается оператором РАНРОММЕ 958 60000 и осу- 
ществляется в два прохода. Аонеолнительным удобством является то, . 
что по окончании работы компилятор выводит на экран Ро 
мацию о длине. нЕ ВораЕНЮЕО Код. 


_*  фирмаТигеНаН & Нодрзоп, 1983 г. Файлы: МСОБРЕЕ2(тип ВА$С, длина 870 байт) 
и МСОРЕЕБ2 (тип СОБЕ, длина 5375 байт, адрес загрузки 59990). 


_** Может использоваться только в качестве условия в операторе 1Е...ТНЕМ.. 
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боНек 15 


Скомпилированная программа запускается оператором 
РАМООМЕ 05$ (КАМТОР+1) 


МСодег 2 позволяет ускорить работу программ обычно в 60...90 
раз, что несколько превосходит показатели 7.Х-Сотр!ег у.1.0. Луч- 
тие результаты получаются при использовании в программе толь- 
ко арифметических действий, без вывода графики. 


$оНек 5 


Компилятор Эойек 15* по сравнению с 7Х-СотрЦег не только 
накладывает на текст исходной бейсик-программы меныие ог- 
раничений, но и добавляет несколько новых инструкций, отсутст- 
вующих в 5ресйат-Бейсике. Кроме того, он значительно уве- 
личивает скорость выполнения скомпилированной программы. 
Тест-программа: 


10 ЦЕТ С=0 

20 РОК А=0 ТО 175 
30 РОК В=0 ТО 255 
40 "ЕТ С=С+1 

50 МЕХТ В: МЕХТ А 


после обработки компилятором ЗоНек 15$ ускоряет свою работу 
более чем в 95 раз. Правда, за это пришлось заплатить почти 
двукратным (по сравнению с 7Х-СотрПег у.1.0) увеличением 
объема самого компилятора, который составил 6 килобайт. 


Процедура запуска Зойек 1$ выполнена несколько иначе, чем 
7Х-СотрНег. После окончания загрузки компилятор запраигивает 
адрес, по которому требуется разместить скомпилированную про- 
грамму: 


КАМТОР а} 40000: (У ог М) 


После утвердительного ответа значение системной переменной 
КАМТОР устанавливается равным 40000, выполняется оператор 
МЕ\У\И и управление передается интерпретатору Бейсика. При отри- 
цательном ответе программа запрашивает новое значение 
ВАМТОР, ввод которого завершается клавишей Етцег. Значение 
ВАМТОР,' а следовательно, и адрес размещения скомпилирован- 
ной программы можно изменить в процессе работы оператором 
СЬЕАК (более подробно об этом см. стр. 106). 


Ввод программы, предназначенной для компиляции, ее 
редактирование и отладка ничем не отличаются от обычной рабо- 
ты в эресгат-Бейсике. 


Запускается компиляция оператором 
КАМРОМШМЕ 05$К 59300 


* Автор Мага Г.е\йз, фирма 5ойекК, 1983 г. Файлы: ЗОЕТЕК 1$ (тип ВА$!С, длина 620 
байт) и СОМЕТ (СОБЕ, длина 6000 байт, адрес загрузки 59300). 
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ЦЕЛОЧИСЛЕННЫЕ КОМПИЛЯТОРЫ 


В процессе компиляции на экране отображаются: адреса начала` 
и конца размещения скомпилированной программы, адрес окон- 
чания области переменных скомпилированной программы и — в 
специальном окне — сообщения компилятора. 

Компиляция осуществляется в два прохода, сопровождающихся, 
соответственно, сообщениями: 


РЮ$Т РА$$ 
5ЕСОМО РА$$ 


После успешного завершения компиляции на экран выдается 
привычное 


0 ок 


и текст 
МО ЕККОК$ 


В случае обнаружения недопустимой для 5оЦек 1$ конструкции 
комциляция прерывается с сообщением ЕЮКОЮ и на экран вы- 
водится участок программы, непосредственно предшествующий 
ошибке. Место сбоя отмечается мигающим знаком $. Как ив ИХ- 
СотрЦег, программный курсор автоматически устанавливается на 
«дефектную» строку программы. 

Ограничения в использовании операторов и функций 


эзреснит-Бейсика частично совпадают с ограничениями, наклады- 
ваемыми 7Х-Сотшр!Нег (но есть и отличия): 


‚ не поддерживается работа с массивами; 

° допустимы все формы обращения к внешним подпрограммам 
в машинных кодах, кроме СО ТО Ч$® ‹адрес> и СО $0В Ц5$К <ад- 
рес>; 

‚. все ограничения, касающиеся использования функций при 
работе с 2Х-Сотр!ег, справедливы и для ЗойеКк 5: не пол- 
держиваются математические функции $№М, СО$, ТАМ, АЗМ, АС$, 
АТМ, Р!, ЫМ, ЕХР и, в отличие от 2Х-Сотр|ег, $ОВ, а также УАЕ, 
УАЕ$, ЫМЕ и функции, определяемые пользователем; 

» допустимы операции с символьными переменными, в связи с 
чем возможно использование функций $1®$, 1ЕМ и $СВЕЕМ$, а 
также МКЕУ$; 

‚ не поддерживаются операторы МЕКСЕ, СОМПМОЕ, М5$Т, МЕ\М/; 

. использование 5$АУ\УЕ, ГОАО, УЕЮРУ допустимо только при опе- 
рациях с файлами типа СОПЕ; 

‚ оператор СЬЕАЕ может быть использован в программе только 
без параметра; 

. выражения, используемые в качестве параметров операторов, 
не обязательно заключать в скобки; 

. допустимы логические операции МОТ, АМО, ОК, однако много- 
уровневое их вложение может привести к ошибке; 

‚ операторы ВЕАО и ОАТА выполняются, но требуют наличия в 
программе хотя бы одного оператора КЕЗТОВЕ (с аргументом 
или без него), предшествующего первому оператору ЮЕАО. 


Дополнительные операторы, распознаваемые 5оЙеКк 1$, но от- 
сутствующие в 5ресцит-Бейсике, вводятся в текст исходной прог- 
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боНек 15 


раммы вслед за оператором ВЕМ. Они составляются из прописной 
буквы (идентификатора оператора} и списка параметров. 
ВЕМ В 


останавливает работу скомпилированной программы, если в мо- 
мент его выполнения нажата клавипга ВгеаК (С$/$расе). 


РЕМ $5, А, х, у 
выводит символ на экран с точностью до пикселя. Параметры: А — 
код символа, х (0...175) иу (0...255} — расстояния в пикселях от 


левого нижнего угла основного экрана. При выходе за пределы 
экрана печать продолжается сего противоположной стороны. Все 
параметры могут быть переменными или выражениями. 

Приведем пример вывода на эк- 
ран символьной переменной: 


10 ГЕТ В=80 

20 ЕТ \/$="боНек 1$ 1.2" 

30 ЕОВ А=1 ТО 14 

40 1ЕТ В=В+1 

50 РЕМ $, СОБЕ \М/$(А), Ах7, В 
60 МЕХТ А 


Естественно, увидеть что-нибудь 
на экране можно будет только 
после компиляции этой программы Рис. 6. Пример работы 
(см. рис. 6): интерпретатор вос- оператора КЕМ $5. 
примет ВЕМ $ как КЕМ и только. 

Оператор КЕМ $ может быть очень полезен при использовании 
набора узких символов (например, 4х8 пикселей). Тогла можно 
обеспечить вывод на экран более 32 символов в строке и без 
применения специального драйвера. 

КЕМ $ имеет одну интересную особенность — он способен вы- 
водить на экран не 96 символов (коды от 32 до 127), как это 
принято для операторов печати Зреснит-Бейсика, а 256. До- 
полнительные символы хранятся в обычном формате (по 8 байт на 
символ) в нескольких областях памяти, положение которых опреде- 
ляется, исходя из значений системных переменных 
СНАК$ (23606/07) и 9РС (23675/76): 


‚ символы с кодами от 0 до 31, которым в стандарте АЗСИ 
соответствуют управляющие коды, считываются с адреса, хра- 
нящегося в СНАК$5, и занимают 256 байт; 

. символы с кодами от 32 до 127 — с адреса (СНАВ5$)+256 и 
занимают положенные им 768 байт до адреса (СНАК$)+1023 
включительно, как обычный символьный набор; 

‚ символы с кодами от 143 до 255, которым в системе 
1Х 5реснит соответствуют ключевые слова Бейсика, распола- 
гаются в памяти с адреса (9РС)—8 по адрес (0ОС)+895; 

. и, наконец, символы с кодами от 128 до 142 (в обычных 
условиях — символы псевдографики) формируются из дан- 
ных, записанных в области памяти, начиная с адреса 
(0Р@)+1920. по (9ОС)+2039. 


113 


КОМПИЛЯТОРЫ, РАБОТАЮЩИЕ С ВЕЩЕСТВЕННЫМИ ЧИСЛАМИ 


Знание последней особенности дает возможность использовать в 
скомпилированных программах альтернативный символьный на- 
бор из 128 символов совместно с 128 символами ООС, один раз 
прибегнув к модификации системных переменных ООС и СНАК$. 
Следует подчеркнуть, что эти особенности присущи только опера- 
тору КЕМ 5$, но не относятся к стандартным операторам вывода на 
экран (РАМТ СН®В$). 


ВЕМ М, А1, А2, ..., Ап 


включает в скомпилированную программу фрагмент в машинных 
кодах: А|1, А? ит. д. (целые числа от 0 до 255). Аля успешного 
возврата из процедуры в кодах она должна заканчиваться кодом 
201 (ВЕТ). Оператор РЕМ М позволяет писать наиболее критичные 
по времени выполнения фрагменты программы непосредственно 
в машинных кодах, что значительно расширяет сферу применения 
компилятора 5оЁек 1$. 


На этом обзор целочисленных компиляторов можно считать 
законченным. Теперь наступило время перейти К следующей теме, 
а именно к так называемым компиляторам «с плавающей точкой». 


КОМПИЛЯТОРЫ, 
РАБОТАЮЩИЕ С ВЕЩЕСТВЕННЫМИ ЧИСЛАМИ 


б$оНек ЕР 


Компилятор 5оНек ЕР* (ЗоНек ЕюаНпа Рот), известный также 
под именем ЕиаП СотшрЦетг, разработан тем же автором, что и 
зойек 15, и внешне напоминает последний. По-видимому, изна- 
чально 5оНек [5 и 5ойек ЕР составляли нечто вроде программного 
пакета, предназначенного для ускорения работы различных 
бейсик-программ. Причем там, где была необходима максимальная 
скорость, но не требовалось особо сложных математических вычис- 
лений, рекомендовалось использовать эоЦек 15, а в остальных слу- 
чаях мог быть использован ЗоЙеКк ЕР, работающий несколько мел- 
леннее, зато позволяющий обрабатывать как целые, так и вещест- 
венные числа. 

Две версии этого компилятора — ЕаЙ СотрЦег у.1.1 и 
ЕР48К у.1.7 — не слишком сильно отличаются друг от друга. 
Ра! Сотр!ег у.1.1 состоит из бейсик-загрузчика и файла в ма- 
шинных кодах. ЕРАЗК у.1.7 состоит из трех файлов: загрузчика, 
фирменной заставки 5оНеКк ЕР и блока кодов собственно компиля- 
тора. Версия 1.1 по окончании загрузки, как и ЗоНек 1$, запра- 


* Автор Майш 1.е\%!5, фирма ЗоНек, 1983 г. Файлы версии 1.1: СОМРИЕК (тип 
ВА$ТС, длина 707 байт), МАСНИМЕ СОПЕ (тип СОПЕ, длина 6050 байт, адрес 
загрузки 59300). Файлы версии 1.7: ЕР48К у.1.7 (тип ВАЗ$С, длина 36 байт), 
< пустое имя> (тип СОПЕ, длина 1000 байт, адрес загрузки 23500), ш/СОПЕ (тип 
СОПЕ, длина 6100 байт, адрес загрузки 59300). 
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живает значение КАМТОР, однако после его ввода не происходит 
очистки области Бейсика оператором ЧЕМ", поэтому перед началом 
работы необходимо сделать это вручную. Оригинальная версия 1.7 
устанавливает КАМТОР на адрес 39999 без запроса и выполняет 
оператор МЕ\М/ автоматически (в дисковой версии 1.7 взод зна- 
чения КАМТОР и выполнение МЕ\М/ необходимо сделать вручную}. 
Значение КАМТОР всегда можно изменить оператором СЬЕА® <ад- 
рес>, где «‹адрес> — число, на единицу менышее, чем требуемый 
адрес размещения скомпилированной программы (подробнее 
смотрите в описании Г.Х-СошрНег, стр. 106). 

Работа с исходными текстами на Бейсике ничем не отличается 
от обычной. Необходимо только номнить, что область памяти нал 
ВАМТОР отводится под скомпилированную программу, а область с 
адреса 59300 по адрес 653506 для версии 1.! или по 65400 для 
версии 1.7 занята самим компилятором, поэтому указанные об- 
ласти памяти нельзя использовать для других целей. 


Обе версии занускаются оператором 
РАМРОММЕ Ц5$® 59300 


В процессе компиляции на экране отображаются: адреса начала 
и конна размещения скомпилированной программы, адрес окон- 
чания области переменных и в специальном окне — сообщения 
компилятора. Все выводимые компилятором сообщения соответст- 
вуют аналогичным сообщениям Зойек 15. 


Далее о самом главном — об ограничениях, наклалываемых 
зоцек ЕР на текст исходной бейсик-программы: 


‹ диапазон обрабатываемых компилятором чисел соответствует 
- диапазону; в котором работабт интерпретатор: от 2,8:10-39 до 
_{,7-1038. Точность представления чисел — до восьми значащих 
цифр. как и в интерпретаторе. При выходе абсолютной ве- 
личины числа за пределы указанного диапазона в сторону 
увеличения выдается сообщение МитБег юо Ыч, в сторону 
уменышения — числовое значение принимается за нулевое. 
Применение функций МАЕ (в версии !.!} и УАЁ$ (в обеих 
версиях) при компиляции не воспринимается как ошибка, но 
во время работы скомпилированной программы вызывает 
сбой, и выдается сообщение Чопзепзе т ВАС: 

не диагностируется как ошибка, но приводит к сбою и приме- 
нение оператора ВЧРУТ с ключевым словом ИМЕ; 

не поддерживаются функции, определяемые пользователем 
(СЕР ЕМ и ЕМ}; 

все используемые массивы, как числовые, так и символьные, 
должны быть одномерными; 

не допустимы инструкции СОТО и СО 533В с нечисловыми 
параметрами (выражениями и переменными}; 

не поддерживаются операторы МЕВСЕ, СОМИМОЕ, Ц5Т, МЕМИ. 
Использование ЗА\УЕ, ГОАБ, УЕЮРУ допустимо в операциях с 
кодовыми файлами. Оператор $ТОР, встреченный в тексте 
программы, не воспринимается как ограничитель текста. $ТОР 
обязательно должен завершать текст бейсик-программы, если 
в ней хотя бы один раз использовался оператор СЬЕАВ — в 


«< 


® 


® 


® 
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противном случае по окончании работы скомпилированной 
программы произойдет сброс компьютера. Программа, оста- 
новленная оператором $ТОР, не может быть продолжена вводом 
СОМПМИЕ; 

‚ все сказанное об использовании логических операций при 
работе с ЭойЙек 1$ справедливо и для ЗоНек ЕР; 

» на применение операторов КЕАО, ВАТА и ВЕЗТОКЕ ограничений 
не накладывается. | = 


эоНек ЕР так же, как его целочисленный «собрат» ЗойеК 15, 
реализует некоторые дополнительные инструкции, не известные 
интерпретатору Бейсика. Операторы ВЕМВ (опрос нажатия 
С5/5расе) и РЕМ М (включение фрагмента в машинных кодах) 
работают так же, как и в ЗоНек [5 (см. стр. 113). Но, к величайше- 
му сожалению, один из самых интересных дополнительных опера- 
торов эоНек 1$ — печать символов в произвольную точку экрана 
(РЕМ $) — наотрез отказывается работать в ЗоНеК ЕР. 

зонек ЕР дополняет Зреснат-Бейсик еще двумя новыми опера- 
торами: КЕМ Е и КЕМ О. 


ВЕМ Е, п 


указывает компилятору на строку в тексте программы, где на- 
ходится подпрограмма обработки ошибок*. Находясь в произволь- 
ном месте программы, этот оператор обеспечивает при возникно- 
вении любой ошибки переход к строке с номером п. Естественно, 
что применение оператора КЕМ Е полностью исключает возмож- 
ность останова программы при помощи оператора ®ЕМ В. Более 
того, запущенная на выполнение программа, включающая в себя 
строку КЕМ Е, п, не может быть остановлена обычными способами. 
Даже естественное окончание программы с выводом сообщения 
СОК расценивается как ошибка и вызывает переход на строку, 
указанную в КЕМ Е. Это создает известные неудобства: по завер- 
шению программы невозможен возврат к работе в интерпретаторе 
Бейсика. Но, с другой стороны, это в какой-то степени залцизцает 
программу от несанкционированного доступа. 

Аля того чтобы обезопасить себя от возможных неприятностей, 
связанных с использованием ®ВЕМ Е, лучше не включать этот опе- 
ратор при пробных запусках программы, а вписывать его в уже 
окончательно отлаженный текст. Перед запуском программы с опе- 
ратором КЕМ Е нужно не забыть сохранить ее исходный текст на 
внешнем носителе. В противном случае весь результат работы мо- 
жет быть потерян из-за невозможности вернуться в интерпретатор. 


г 


—ы= 


РЕМ О, 4, п1, п2, ..., пп 


реализует оператор группового перехода. Во многих версиях 
Бейсика в этом случае используется ключевое слово ОМ, в част- 
ности, в Веа Ваз1с он записывается так: 


СО ТО ОМ а; п1, пд, ..., пп 


* Отметим, что этот оператор работает только в боНек ЕР версии 1.1. 
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В зависимости от значения параметра а осуществляется переход 
по одному из номеров строк, указанных в списке п1, п2, ..., пп. При 
я=1 осуществляется переход к строке с номером п1, при а=2 — к 
строке с номером п2 ит. д. Если значение а меныше или равно 
нулю, либо превышает число элементов списка, либо имеет дроб- 
ное значение, то управление передается следующей за оператором 
КЕМ О строке. Необходимо помнить, что а не может быть числом 
или выражением — только числовой переменной. 


_Тобо$ ЕР Е 


Компилятор ТоБо$ ЕР* (ТоБо$ ЕоаНпд Рот появился на свет в 
Полыше в 1986 году и стал на сегодняшний день, пожалуй, наибо- 
лее популярным из всех известных бейсик-компиляторов для 
ГХ 5реснат. Он удачно сочетает в себе относительно высокое 
быстродействие с максимальной совместимостью со Зреснит- 
Бейсиком. ТоБоз ЕР имеет ряд дополнительных возможностей, на- 
пример, позволяет выбирать различные режимы компиляции в 
зависимости от нужд программиста и параметров исходного текс- 
та. Тофо$ может компилировать довольно большие программы, 
наиболее эффективно используя при этом память 7Х Зресбат. 

Компилятор состоит из бейсик-загрузчика (известно два ва- 
рианта) и блока кодов длиной 12268 байт, располагающегося с 
адреса 53100. КАМТОР изначально устанавливается на адрес 
39999, однако это значение может быть в любой момент измене- 
но с помощью СЁЕАЕ <адрес>. 

Компиляция запускается оператором 


КРАМРОЛИГЕ Ц5$Ю 53100 


По завершении компиляции на экран выводится фирменная 
заставка ТоБо$ ЕР и значения параметров, необходимых для запу- 
ска скомпилированной программы и ее записи на внешний 
носитель: адрес начала текста и его длина. 

Торо$ ЕР избавляет программиста от необходимости постоянно 
набирать последовательность операторов для запуска компилятора 
и скомпилированной программы. Остроумный прием позволяет 
полностью автоматизировать этот процесе. Необходимо только, 
чтобы первая строка программы содержала слелующий текст: 


1 Е 1/2—0.5 ТНЕМ КАМООМЕ 0$ 53100: РАМРОМИМЕ Ц5Р АООК: 
ТОР 


— где АООК — адрес начала скомпилированной программы. Тогда 
оператор КОМ, введенный с клавиатуры, вызовет компиляцию и 
немедленный запуск скомпилированной программы. Секрет этого 
приема заключается в следующем: для интерпретатора Зрестит- 
Бейсика величины 1/2 и 0.5 — это не совсем одно и то же, а для 


* 


Авторы ]ег2у Вогко\$ К! и У/о)слесН ЗКаБа, 1986 г. Файлы первого варианта: ТОВО$ 
ЕР (тип ВА$!С, длина 258 байт), ЕГОАТИМС РОПМТ (тип СОРЕ„ длина 12268 байт, 
адрес загрузки 53100). Файлы второго варианта (заставка с бегущей строкой): 
ТОВО$ ЕР (тип ВА$!С, длина 2648 байт), файл без заголовка (тип СОШЕ, длина 
12268 байт, адрес загрузки $3100). 
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компилятора эти два числа равны (о причинах — чуть позже). 
Поэтому при запуске программы средствами интерпретатора (ВУМ) 
значение выражения 1/2-0.5 не равно нулю, и выполняются 
операторы, следующие за ТНЕМ, то есть осуществляются компи- 
ляция программы и ее запуск. Вычисление выражения 1/2-—0.5 в 
скомпилированной программе даст нулевой результат, и, следова- 
тельно, управление передастся следующей строке, минуя 
компиляцию. 

В процессе компиляции, как и во время выполнения програм- 
мы, могут появляться различные сообщения об ошибках. По смыс- 
лу они, в основном, соответствуют аналогичным сообщениям 
интерпретатора, однако некоторые из них имеют свои 
специфические особенности. Так, сообщение УамаЫе по# юипа вы- 
дается на этапе компиляции, если в тексте программы обна- 
руживается обращение к необъявленной переменной или 
массиву. Олнако при работе в среде ТоБоз ЕР может сложиться 
парадоксальная ситуация, когда первое обращение к переменной 
может предшествовать ее ‘объявлению операторами \+ЕТ, РОВ, МРОТ 
или ВЕАО. Поясним. Например, совершенно нелепый, с точки 
зрения интерпретатора, текст: 


10 РАМТ А 
20 РАМТ В 
30 РАМТ С 
40 ГЕТ АЕА+1 
50 ЕЕТ В=А+С 
60 ЕТ С=А+В 


для компилятора является абсолютно нормальным. Связано это с 
тем, что при компиляции в памяти компьютера резервируется 
место для всех числовых переменных, хотя бы раз упомянутых в 
операторах "ЕТ, РОК, МРОТ или КЕАО, и присваивается этим пере- 
менным нулевое значение. Следовательно, результатом работы 
вышеприведенного примера будет вывод на экран трех нулей, так 
как печать переменных осуществляется до того, как им впервые 
присвоено значение. Однако если бы этот пример имел следу- 
ЮЩийЙ ВИД: 


10 РАМТА 
20 РАМТ В 
30 РЕМТ С 


— то на этапе компиляции возникла бы ошибочная ситуация, 
которая привела бы к выдаче сообщения УамаЫе по} фоипа, так как 
переменные А, Ви С в программе не объявлены вообще. Благодаря - 
этому эффекту можно не заботиться о принудительном обнулении 
переменных перед началом работы скомпилированной программы 
— ТоБо$ ЕР сделает это сам. 

Сообщение КАМТОР по доо может появиться при компиляции 
больших по объему исходных текстов в результате нехватки места 
для стека компьютера {между КАМТОР и областью бейсик-прог- 
раммы). В этом случае рекомендуется ноднять КАМТОР 
приблизительно на 100 байт. 
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Сообщение Мопзепзе т ВАЗС может появиться при использо- 
вании не допустимых в среде ТоБоз$ ЕР операторов, таких как $А\УЕ, 
ГОАО, СОМТМИЕ, а также СЬЕАВ с параметром. Эти операторы отно- 
сятся к числу тех немногих ограничений, которые ТоЪоз$ ЕР все же 
накладывает на исходный текст программы. — 

Необходимо отметить, что Тофоз ЕР не пользуется подпрограм- 
мами калькулятора 7Х Зреснит, а имеет свой собственный, с 
другим форматом хранения чисел. Этот калькулятор производит 
вычисления с точностью до 7 значащих цифр, а не до 8, как это 
делает интерпретатор. Именно поэтому для ТоБо$ ЕР величина 1/2 
в точности равна 0,5. С наличием собственного калькулятора 
связано существенное увеличение объема ТоЪо$ ЕР по сравнению 
с компиляторами 5эоЁек. 

Сообщение Оц{ о<{ тетогу возникает всякий раз, когда ком- 
пилятору не хватает памяти для размещения скомпилированной 
программы. Эту ситуацию следует отличать от случая, когда ана- 
логичное сообщение возникает до компиляции и означает, что 
компьютеру не хватает места для размещения текста исходной 
бейсик-программы. Аля компиляции больших программ (объемом 
до 27 килобайт) существует ряд специальных приемов, которые 
будут подробно рассмотрены дальше. 

Все сообщения об ошибках, выводимые не только в процессе 
компиляции, но и при выполнении скомпилированной програм- 
мы, содержат указание на номер строки исходного текста, в кото- 
рой возникла ошибочная ситуация. Это во многом облегчает поиск 
ошибок. 


Компилятор ТоБоз ЕР представляет собой достаточно гибкое 
программное средство, позволяющее выбирать различные режимы 
компиляции в зависимости от условий. Стандартный режим 
компиляции, задаваемый по умолчанию, более всего удобен для 
предварительной отладки небольших (ло 13 килобайт) программ. 
Для готовых отлаженных программ удобно применять режим тран- 
сляции с сокращенным форматом вывода сообщений об ошибках 
(без указания номера ошибочной строки в исходном тексте). Это 
позволяет несколько сократить объем скомпилированной програм- 
мы и ускорить ее работу. Режим включается оператором 
РОКЕ 53252,0, а выключается — РОКЕ 53252,55. 

Аля обработки больших программ может оказаться полезным 
режим компиляции с уничтожением исходного текста и разме- 
щением на его месте кодов скомпилированной программы. Вклю- 
чается режим оператором РОКЕ 53240,0, а выключается — 
РОКЕ 53240,55. 

Кроме того, при компиляции очень больших программ может 
помочь справиться с неизбежными проблемами рациональное рас- 
пределение памяти компьютера. Для того чтобы оптимально 
использовать память, необходимо знать несколько собственных 
системных переменных Тоо$ ЕР. 

Ячейки 58112/13 содержат адрес размещения скомпилирован- 
ной программы для режима компиляции без уничтожения исход- 
ного текста программы. Если обе ячейки содержат нули, то код 
размещается традиционно по адресу КАМТОР+1, если же нет, то 
по адресу РЕЕК 58112+256*РЕЕК 58113. 
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Несложная программа на Бейсике рассчитывает по заданному 
адресу значения параметров операторов РОКЕ и заносит их в 
системную переменную: 


10 МРОТ “АБОК”, АБОВ: КЕМ Ввод адреса начала скомпилирован- 
ной программы Е 

20 КАМООММЕ АООВ: КЕМ Преобразование двухбайтового числа 
в два однобайтовых 

30 РОКЕ 58112, РЕЕК 23670 

40 РОКЕ 58113, РЕЕК 23671: РЕМ Помещение полученных значений 
а системные переменные ТоБо$ ЕР 

50 РОКЕ 53240,55: КЕМ Компиляция без уничтожения текста 


Ячейки 55631/32 содержат адрес размещения скомпилирован- 
ной программы для режима трансляции с уничтожением исходного 
текста. Изначально эти ячейки содержат адрес 24000 для магнито- 
фонной версии компилятора и 24100 для его дисковой версии. 

Программа, автоматически помещающая требуемые значения в 
эту системную переменную, может выглядеть так: ‹ 


10 МРОТ “АООК”, АБОЮ 

20 КАМООМШЕ АООЮ 

30 РОКЕ 55631, РЕЕК 23670 

40 РОКЕ 55632, РЕЕК 23671. 

50 РОКЕ 53240, 0: КЕМ Компиляция с уничтожением текста 


Основные приемы компилирования болыних программ сводят- 
ся, главным образом, к умелому манипулированию значениями 
КАМТОР и`вышеперечисленных переменных. Можно порекомен- 
довать такую последовательность работы: 


1. установить КАМТОР равным 53099, освободив максимум 
пространства для исходного текста программы; 

2. выбрать режим компиляции с уничтожением исходного текста 
программы оператором РОКЕ 53240,0 и режим сокращенных 
сообщений об ошибках оператором РОКЕ 53252,0; 

3. запустить компиляцию оператором КАМООМИШЕ Ц5$®Ю 53100 или 
при помощи запускающей строки и оператора КОМ; 

4. по окончании компиляции переместить КАМТОР на 1 байт 
ниже начала скомпилированной программы, выполнив 
СЕЕАК АООК-1, и запустить последнюю на выполнение опера- 
тором КАМООМИШЕ 15$ АООК. 


Способы записи скомпилированной программы на внешний 
носитель подробно описаны в следующем разделе. 


ЗАПИСЬ СКОМПИЛИРОВАННЫХ ПРОГРАММ 


Полученный в результате компиляции код не является закон- 
ченным программным продуктом, так как для его работы необ- 
ходимо присутствие в памяти компьютера самого бейсик-компиля- 
тора. = 
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Существует несколько способов записи на внешний носитель 
скомпилированной программы в формате, пригодном для ее само- 
стоятельного применения. Суть этих способов сводится к напи- 
санию по окончании компиляции специальной программы-за- 
грузчика на Бейсике, которая автоматически загружает в память 
компилятор, скомнилированную программу и запускает ее на вы- 
полнение. Нередко программа-загрузчик содержит в себе так на- 
зываемый «самоспасатель», позволяющий после окончания ком- 
пиляции одним оператором ЮУМ создать на ленте или на диске все 
необходимые файлы, составляющие законченный программный 
продукт. 

Рассмотрим несколько методов создания из скомпилированного 
полуфабриката законченного программного продукта. 


Метод первый 


Суть метода — создание на ленте или диске трех файлов: за- 
грузчика на Бейсике, файла в машинных кодах, содержащего 
пакет рабочих процедур компилятора, и файла скомпилированной 
программы (табл. 3}. 


Таблива 3. Распределение памяти при работе с компиляторами. 


Р_КАМТ (23732)* 
Симвопы, определяемые пользоватепем 


ЧОС (23675) 
Свободная область 
- АРРЕСОМР-+ЬЕЕМСОМР 
= Область, занятая компилятором 
АООКСОМР 


Рабочая область компилятора 
АРОЮКСОМР-—У/5$РАСЕ 
Свободная область 
ЕМОУАЮ$ 
Область переменных скомпипированной 
программы 
ЕМОРКОС 
Скомпипированная программа 
РАМТОР (23730) 
Е ЫМЕ (23641) 
Переменные Бейсика 
УАК5 (23627) 
Бейсик-программа 
РЮОС (23635) 


В скобках приведены адреса системных переменных, в которых записаны зна- 
чения адресов соответствующих границ областей памяти. 
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Для осуществления замысла необходимо произвести следующие 
действия: 


1. загрузить компилятор; 
2. набрать или загрузить с внешнего носителя исходный текст 
программы на Бейсике; 
3. произвести компиляцию; 
4. освободить область Бейсика от исходной программы, выпол- 
нив оператор МЕ\\; 
5. написать загрузчик на Бейсике по следующей схеме (для 
работы с диском здесь и далее изменения обычные}: 
10 СЕЕАК АООЮ-1: КЕМ Установка КАМТОР 
20 ГОАО "СОМР\ЕВ" СОБЕ: КЕМ Загрузка компилятора 
30 ГОАО "МАМЕ" СОПЕ: КЕМ Загрузка скомпилированной прог- 
раммы 
40 РАМОРОМШЕ Ц5$В АБОЮ: РЕМ Запуск скомпилированной прог- 
раммы 


6. записать файлы на внешний носитель строкой операторов: 
ЗАУ\УЕ "МАМЕ" ИМЕ 10 : $АУЕ "СОМРЬЕК" СООБЕ АБОВСОМР, 
СЕМСОМР : 5АУЕ "МАМЕ" СООБЕ АОШОЮ, ЕМОУА®$—АООКЮ 


— где АРОКСОМР — адрес загрузки компилятора (он не всегда 
совпадает с адресом его запуска), ГЕМСОМР — длина компиля- 
тора, АШБОК — адрес начала скомпилированной программы 
(указывается самим компилятором и равен практически всег- 
да КАМТОР-1), ЕМОМА®$ — адрес окончания области перемен- 
ных скомпилированной программы (также выводится самим 
компилятором). Значения АООКСОМР ‘и ТЕМСОМР для 
различных компиляторов сведены в Табл. 4. Некоторые 
компиляторы, например, МСодег 2 или ТоБо$ ЕР вместо адре- 
са окончания скомпилированной программы выводят ее 
длину, в таком случае это значение прямо подставляется в 
оператор $АУЕ вместо выражения ЕМОУАЮ$—АРОЮ. 


Таблица 4. Параметры компиляторов, необходимые для записи 
готового программного продукта. 


кв _ | 9 | в | 5 | 
нае 9% | 0 | 5 
ЕСО ВЕС И 
ое 9% 
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Приверженцам хорошего стиля, а также тем, кто не любит 
набирать длинные последовательности операторов на клавиатуре, 
рекомендуем поручить весь процесс записи программного продук- 
та на внешний носитель самому компьютеру. Для этого рекоменду- 
ем такую программу: 


10 ЗАУЕ "МАМЕ" НМЕ 50: РЕМ Начало «самоспасателя» 
20 ЗАУЕ "СОМРЬЕЮ" СОШЕ АООЮСОМР, ГЕМСОМР 

30 ЗАУЕ "МАМЕ" СОБЕ АРОК, ЕМОУА®$—АООЮ 

40 $ТОР: КЕМ Окончание «самоспасателя» 

50 СЕЕАЮ АРБОКЮ-—1 

60 ГОАБ "СОМРЕЕЮ" СОБЕ 

70 ГОАО “МАМЕ” СООБЕ 

80 РАМВОМИЕ 4$ АБОЮ 


После набора этого варианта загрузчика достаточно просто дать 
команду ®УМ, и готовый программный продукт в виде трех файлов 
будет автоматически записан на внешний носитель. Теперь для 
запуска программы достаточно набрать ОАО “МАМЕ”. 

Этот вариант при всех своих достоинствах, а именно простоте 
расчета адресов и минимальной суммарной длине файлов, не 
всегда удобен. Особенно это относится к компиляции болыних 
программ. Действительно, когда верхняя граница области пере- 
менных скомпилированной программы подходит близко к нижней 
границе компилятора, есть смысл записать все это в виде одного 
файла, охватывающего область памяти от АОО® АО 
АООКСОМР-+ЕЕМСОМР (см. табл. 4). Для таких случаев, главным 
образом, и предназначается следующий метод. 


Метод второй 


Он чрезвычайно прост, однако его применение сопряжено с 
несколько большим расходом памяти. На вненгнем носителе 
формируются два файла: загрузчик на Бейсике и кодовый файл. 
Последний содержит скомпилированную программу, компилятор 
и некоторое количество неиспользованной памяти, нахолящейся 
между последним байтом скомпилированной программы и первым 
байтом области компилятора. Справедливости ради следует ска- 
зать, что эту область памяти нельзя считать полностью неиспользу- 
емой, так как именно в ней располагается стек компилятора, но об 
этом чуть нозже. 

Аля записи программного продукта этим методом необходимо 
составить следующий загрузчик на Бейсике: 


10 СТЕАК АБВОВ-1: КЕМ Установка КАМТОР на адрес, на единицу 
меньший, чем начало скомпилированной прсграммы 

20 ГОАО "МАМЕ" СОПЕ: КЕМ Загрузка. скомпилированной прог- 
раммы 


30 КАНОРОМИШЕ Ц5® АОБОЮ: КЕМ Запуск программы 
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Затем нужно выполнить строку операторов: 
$АУЕ "МАМЕ" НМЕ 10: ЗАУЕ "МАМЕ" СООБЕ АООК, ГЕМСТН 


— где АБО — адрес начала скомпилированной программы, 
ГЕМСТН — длина всего блока в кодах, рассчитываемая по формуле: 


СЕМСТН = АБОЮСОМР + ЕМСОМР — АОСОЮ 


— где АОБОРЮСОМР — адрес начала компилятора, а 1ЕМСОМР — его 
длина в байтах (см. табл. 4). Аля простоты можно считать, что 
АБОЮСОМР+-ЕМСОМР=6 5535. Это позволит сохранить вместе с про- 
‚ граммой область определяемых пользователем символов, если, ко- 
нечно, в этом есть необходимость. Естественно, что все операции 
по записи программы целесообразно, как и в первом варианте, 
поручить компьютеру. В этом случае программа-загрузчик будет 
иметь вид: 


10 ЗАУЕ "МАМЕ" ИМЕ 40: РЕМ Начало «самоспасателя» 
20 ЗАУЕ "МАМЕ" СОГБЕ АОСОК, ЦЕМСТН 

30 $ТОР: ЮЕМ Окончание «самоспасателя» 

40 СТЕАЮ АООЮ-—1 

50 ГОАО "МАМЕ" СООЕ 

60 РАМООМИШЕ Ц$К АООК 


И, наконец, для тех, кто, не считаясь с затратами времени, 
пожелает соединить преимущества двух описанных методов в 
одном, будет полезен третий метод. 


Метод третий 


Этот метод является наиболее трудоемким, но и самым эф- 
фективным. Его рекомендуется применять при создании закончен- 
‚ного коммерческого продукта, так как именно этот способ удачно 
сочетает в себе как минимальное число файлов (два), так и наибо- 
лее эффективное использование места на магнитной ленте и объе- 
ма памяти при работе программы. Основная идея этого метода 
заключается в размещении скомпилированной программы почти 
«впритык» к компилятору. 

Метод требует специальной подготовки еще на этапе ком- 
пиляции, поэтому приводим здесь подробный его алгоритм: 


1. загрузить компилятор; 

2. ввести исходный текст программы и запустить пробную 
компиляцию. По. окончании запомнить стартовый адрес 
скомпилированной программы (АООЮ) и вАрее окончания 
области переменных (ЕМОУАЮ$}; 

3. установить КАМТОР оператором 
СЕЕАЮ АООКСОМР-—(ЕМОУАЮ$—АООК)-—\У/5РАСЕ-1 
— где АРОЮСОМР — адрес начала компилятора (см. табл. 4), 
ЕМОУАК5 и АОШООК — соответственно, окончание и начало 
скомпилированной программы, запоминаемое после пробной 
компиляции, У/ЗРАСЕ — размер рабочего пространства (обыч- 
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но от 130 до 200 байт), резервируемого на нужды самого 
компилятора; 

4. скомпилировать программу еще раз по новому адресу, после 
чего сохранить на внешнем носителе блок машинных кодов, 
выполнив оператор: 


5АУЕ "МАМЕ" СОГБЕ АБОК, АБОЮВСОМР+--ЕМСОМР-АСОЮ 


— где АРОЮСОМР и СЕМСОМР — как и прежде, начальный адрес 
и длина компилятора (см. табл. 4). 


Бейсик-загрузчик Аля считывания и автоматического запуска 
скомпилированных программ в этом случае будет выглядеть так: 


10 СТЕАК АООК-1 
20 ГОАО "МАМЕ" СОБЕ 
30 РАМООМШМЕ 05$ АООЮ 


Несмотря на свою эффективность, третий метод сохранения 
скомпилированных программ не исключает целесообразности 
применения остальных, которые наиболее удобны при необхо- 
димости экономии машинного времени, главным образом, на эта- 
пе разработки программного продукта. 

Кроме того, при работе с дисковолом первый метод (с раздель- 
ным сохранением компилятора и скомпилированной программы) 
позволяет экономить место на диске за счет сохранения единствен- 
ного файла с пакетом рабочих процедур компилятора и нескольких 
файлов с результатами компиляции различных программ, запу- 
скаемых разными загрузчиками. 


При необходимости можно обеспечить сохранение в одном 
файле нескольких программ, скомпилированных в разные адреса. 
В этом случае все скомпилированные программы записываются 
на внешний носитель в виде одного файла вместе с компилятором 
и после загрузки запускаются по разным адресам. Адреса нужно 
выбрать таким образом, чтобы скомпилированные программы раз- 
мещались впритирку друг к другу: это позволяет минимизировать 
размер файла“. Для болышего удобства и во избежание разру- 
шения уже скомпилированных программ рекомендуется 
транслировать фрагменты, располагая их в памяти «сверху вниз». 
Аля начала необходимо установить КАМТОР на максимально вы- 
сокий адрес, позволяющий разместить над ним первый фрагмент 
и рабочую область компилятора. После этого следует ском- 
пилировать первую программу, затем опустить КАМТОР на ве- 
личину, необходимую для размещения следующей программы, и 
так до тех пор, пока не будут скомпилированы последовательно все 
программы. Затем остается лишь записать всю область памяти от 
ВАМТОР до окончания компилятора на внешний носитель в виде 
единого блока кодов. Вызывающая программа пишется на Бейсике 
и Также компилируется. Она содержит обращения к программам 
по адресам их начала. КАМТОР при загрузке устанавливается, как 
обычно, на адрес, на единицу меньший, чем адрес начала блока 
КОДОВ. 


При осуществлении этого варианта предварительно может потребоваться отдель- 
ная компиляция программ с целью определения размера каждой из них. 
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Таким образом, появляется реальная возможность организации 
процесса программирования путем разделения глобальной задачи 
на несколько независимых модулей. Кроме того, можно создавать 
наборы предварительно скомпилированных системных библиотек, 
пригодных для использования в различных программах. Пробле- 
мой остается лишь способ обмена данными между отдельно ском- 
пилированными модулями. Вследствие того, что для каждого прог-. 
раммного фрагмента при компиляции формируется своя область 
переменных, для передачи значений переменных от одного фраг- 
мента к другому требуются специальные приемы. Практически это 
можно осуществить, например, путем нобайтового обмена дан- 
ными с помощью операторов РОКЕ и РЕЕК через специально отве- 
денную область намяти. 


Внешние процедуры в мангинных кодах и таблицы пользователя 
(альтернативные символьные наборы ит. п.} могут располагаться 
в любом свободном месте памяти. Их можно оформлять как в виде 
отдельных файлов, так и присоединять к скомпилированной прог- 
рамме или самому компилятору. Впрочем, возможности человече- 
ской фантазии поистине безграничны, поэтому предоставим чита- 
телю право самому придумать другие варианты использования 
богатейших возможностей, предоставляемых компиляторами 
эреснит-Бейсика. ЕЕ 


ПРИЛОЖЕНИЯ 


1. Совместимость компиляторов и интерпретатора Бейсика 


В предлагаемой таблице (табл. 5} представлены ограничения, 
налагаемые рассматриваемыми компиляторами на синтаксис опе- 
раторов и функций Бейсика. Нелопустимые инструкции отмечены 
знаком минус (-). Если инструкция допустима, но ее употребление 
имеет особенности по сравнению с интерпретатором; она отмечена 
цифрой, означающей номер примечания. 


Таблица 5. Ограничения синтаксиса при использовании компиляторов. 
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Комментарии к таблице: 
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. При использовании целочисленных компиляторов любые 
дробные параметры в тексте программы диагностируются как 
ошибка и вызывают остановку компиляции. 

. В среде 7Х-Сотр!Иег у.1.0 не поддерживаются символьные 
переменныс. 


5 Зак. № 192 - 129 


_ КОМПИЛЯТОРЫ 


. Аргументы функций и параметры операторов в среде 
7Х Сотр!Иег у.1.0, представляющие собой выражения, долж- 


ны 


заключаться в круглые скобки. Для МСоаег 2 это огра- 


ничение распространяется только на операторы РЕОТ, ОКА\У/ и 
СЮСЕЕ. 


‚ Цифры в таблице обозначают: 


ЕЕ 


18. 


. функция поддерживается только в контексте СООЕ ИЧКЕУ$; 
. избыточный оператор; 
. функция возвращает целочисленный результат; 


дробная часть отбрасывается; 


результат возвращается в виде числа со знаком в допол- 
нительном коде (см. стр. 103); 


инструкция компилируется, но приводит к сбою при вы- 
полнении программы, 


компилируется, но работает неправильно; 
допускается только без параметров; 
массивы могут быть только одномерными; 


. инструкция $ТЕР не поддерживается; 
. В качестве параметров нельзя использовать выражения и 


переменные; 


‚выводится листинг программы, находящейся в области 


Бейсика, а не скомпилированной программы; 


. операторы работают только с файлами типа СОСЕ; 
. может использоваться также для ввода операторов, расши- 


ряющих стандартный Бейсик; 


. допускается только с параметром, 
. воспринимается как ограничитель текста программы (ана- 


логично ЕМО в ряде других языков высокого уровня); 


может использоваться только в качестве условия в операто- 
ре Н...ТНЕМ; 


в параметрах могут использоваться натуральные дроби. 


2. Сравнительные характеристики компиляторов 


В табл. 6 сведены данные о повышении скорости работы тест- 
программ, оттранслированных различными компиляторами, по 
сравнению со скоростью их выполнения интерпретатором Бейсика, 
а также размеры скомпилированных программ. Для проверки 
использовались 3 тест-программы: 1-я и 2-я целочисленные (экран- 
ная графика и целочисленная арифметика), а 3-я использует алгеб- 
раические операции с «плавающей точкой». 


Тест 1 Тест 2 
10 РОЮ А=0 ТО 175 10 РОВ А=1 ТО 256 
20 РОЮ В=0 ТО 255 20 РОЮ В=1 ТО 256 
30 РЕОТ В,А 30 ТЕТ С=(А*В)—(А*В) 
40 МЕХТ В: МЕХТ А 40 МЕХТ В: МЕХТ А 
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Тест 3 


10 РОВ А=0 ТО 255 
20 ГЕТ В=АВ$ (АС$ (ЮМО))-+АЗ$М (ЕМО)-АТМ (РМО) 

30 ТЕТ В=АТТВ (А;В)-+ВИМ 10011110/СОБЕ "а” 

40 ТЕТ А$=СНВ$ А 

50 ГЕТ В=СО$ Р!: ГЕТ В=ЯИМ Р! 

60 ГЕТ В=ТАМ Р!--ЕХР Р!: ГЕТ ВМ (31)=СОРЕ ИМКЕУ$ 

70 ТЕТ В=МТ (2/3): ГЕТ В=ЦЕМ А$ 

80 ТЕТ В=ИМ РНЕРЕЕК 23681—РОИНТ (128,88) 

90 ЕТ А$=5СВЕЕК$ (10,10) 

100 ГЕТ В=5©М (®МО)-5М (РМО)*5ОВ (АВ$ (ЕМО))/ТАМ (МО) 
110 ГЕТ А$=5ТВ$ 12345 

120 ВЕТ В=Ч$®В 7962+058 "а" 

130 МЕХТ А 

140 ВЕЕР 0.1.0.1 


Таблица 6. Сравнение эффективности компиляторов. 


_ Степень ускорения (по сравнению с $реснит-Бейсиком], крат 


т Е 


ЕЕ ЕЕ 


Длина программы с переменными (без учета компилятора}, байт 


ера рае 
рее рая па 
Вр РЕ р ры 


*Режим 1 компиляции Тобо$ ЕР включается оеритором РОКЕ 53252,0; 
режим 2 —РОКЕ 53252,55 (подробнее см. стр. 119). 
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Система РКО-РО5 у.1.1* расширяет возможности интерпрета- 
тора 5реснат-Бейсика, добавляя к стандартному списку операто- 
ров три десятка новых инструкций. 


Перечислим основные «специальности» операторов РКО-РО5: 


. вывод на экран графических объектов (треугольников, 
эллипсов, прямоугольников и т. д.)}; 

. заливка контуров текстурой; 

. выполнение операций с окнами; 

. изменение размеров шрифтов; 

работа с теневым экраном. 


Как видно, возможности РКО-ПРО5 достаточно велики, особен- 
но, если учесть, что в памяти компьютера он занимает всего 3787 
байт (наименыший объем по сравнению с другими расширениями 
эреснит-Бейсика, описанными в этой книге). Между кодами РКО- 
РО$ и началом области символов, определяемых пользователем, 
существует зазор около 1,5 килобайт памяти (см. Приложение 2). 
Этот зазор недоступен бейсик-программам, но может быть исполь- 
зован для размещения программ в машинных кодах. 

Отметим также, что РКО-РО$5, в отличие, скажем, от МедаВаз$1с 
и Ваа Ваз1с, не конфликтует с дисковой операционной системой 
ТК-2О5: в программы можно смело включать инструкции обра- 
щения к дисководу. 


Системный файл РКО-РО$ имеет хождение вместе с демонст- 
рационной программой, выполняющей по совместительству и 
функции ‘загрузчика. Наличие виртуозно написанной демонст- 
рационной программы, показывающей практически все возмож- 
ности системы, избавляет нас от славословий в адрес РКО-ОО5. 


По нашему мнению, система РКО-РО$ может быть очень полез- 
на при составлении различных тестирующих и демонстрационных 


Автор Нап5-ЛоасЬ1т Вехгп 41, 1985 г. Файлы: РКОРО$РЕМО (тип ВА$С, длина 7811 
байт), РКО-0О5$1.1 (тип СОПЕ, длина 3787 байт, адрес загрузки 60000). 
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программ для образования, науки и бизнеса. Благодаря ее про- 
стоте работать с ней смогут даже начинающие программисты, тем 
более (мы надеемся) после прочтения этого описания. А для быст- 
рейшего освоения приемов программирования в среде РКО-2О$ 
рекомендуем впоследствии шаг за шагом изучить работу демонст- 
рационной программы. 


ЗАГРУЗКА И ЗАПУСК 


Перед началом экспериментов (или работы) с РКО-РОЗ вве- 
дите с клавиатуры строку 


СЕЕАК 59999: ГОАБ "" СОРЕ 


и, «промотав» на ленте бейсик-файл демонстрационной програм- 
мы, загрузите системный файл. Если демонстрационная програм- 
ма уже загружена, очистите память с помощью оператора стандар- 
тного Бейсика МЕ\/*”. После этого необходимо выполнить следую- 
щую программку: 


10 КАМРОМИЕ 95К 60000 
20 ОРЕМ #2, "Р" 


Вообще, каждая программа, работающая с РКО-0ОО5, должна 
начинаться с этих строк. Строка 10 понятна: она запускает 
(инициализирует) РВО-РО5. А вот строка 20, связывающая канал 
"Р” с потоком номер 2, может вызвать некоторое недоумение, 
поэтому кратко поясним ее назначение. Вывод информации на 
экран в стандартном Зресииат-Бейсике идет через канал "К”**. 
Олнако через этот канал невозможно реализовать многие допол- 
нительные возможности по выводу на экран, которые предоставля- 
ет система РКВО-РО5. По каким-то соображениям автор РКО-РО$ 
не стал задавать новый канал, а молифицировал канал “Р" — 
‚единственный из стандартных каналов, поддающийся 
модификации***. Поэтому твердо усвоим, что программы, работа- 
ющие с РКО-РО5, обязательно должны содержать строку 20. При 
ее отсутствии будут утрачены наиболее ценные возможности РКО- 
РО5: доступность нижней части экрана для вывода графики, воз- 
можность изменения размеров шрифтов и др. 

Во все имеющиеся в описании РКО-РО5$ примеры программ 
необходимо добавлять две приведенные строки с номерами 10 и 20 
(в целях упрощения записи они опущены). Аля запуска примеров 
программ используйте команды КОМ или СО ТО 10. 


* 
Обратите внимание, что демонстрационная программа производит 


модификацию некоторых символов, определяемых пользователем (ООС). 
Подробно о потоках и каналах смотритев [1]. 


При этом, естественно, возникли сложности с выводом на принтер, так как канал 
"Р" еще Клайвом Синклером предназначался именно для этих целей. Как раз- 
решить проблему вывода на принтер из РКО-РО$, объяснено в Приложении 3. 


жх 
жжх 


>. 


РКО-0О$ 


КЛЮЧЕВЫЕ СЛОВА 


Ключевые слова РКО-РО5 вводятся по бук- 
вам. Для того чтобы компьютер не принял их за 
имена переменных, перед ними ставится пре- 
фикс — «звездочка» (*). Не надо пытаться «впи- 
хивать» звездочку перед ключевыми словами 
стандартного Бейсика, например, вводить *РЕОТ, 
сначала нажав клавишу © (РЁЕОТ), а затем звез- 
дочку — РКО-РО5 этого не ноймет. 


Операторы РКО-РО5$ можно вводить как про- 
писными, так и строчными буквами. Пробелы 
между ключевым словом и параметрами опера- 
тора необязательны*. Из всего сказанного следу- 
ет, что приведенные ниже инструкции РКО-РОЗ 
воспримет как идентичные: 


*УУМОО\МУ С, а1, а(14), УАЕ А$ 
*жмипао\ми с, А!, О(14), МАЕ а$ 


и даже 
+жупВо\\с,а1,4(14),УАЁ А$ 


В тексте для облегчения восприятия мы будем 
записывать операторы исключительно пронис- 
ными буквами ис пробелами. 


Но написанию некоторые операторы РКО- 
РО5$ отличаются от операторов Зреснит-Бей- 
сика лишь наличием префикса-звездочки. Но 
это еще не свидетельствует об их функциональ- 
ной идентичности. Такие операторы могут быть 
и очень близки по смыслу (как *РЕОТ и РЁЕОТ), и 
иметь лишь некоторое сходство (*С1$ и С15$}), а 
также весьма отдаленно напоминать друг друга 
(=МЕМУ и МЕМ/) и, наконец, не иметь между собой 
ничего общего (*жИМЕ и ЧМЕ). 


Иногда работа стандартных бейсиковских 
операторов (таких как РАМТ, АТ, ТАВ, а также 
операторов установки атрибутов) в РКО-ОО5- 
программах несколько отличается от того, что мы 
привыкли от них ожидать. Такие случаи, по воз- 
можности, будут рассмотрены. 

Краткая справочная информация об операто- 
рах РКО-РО5$ приводится в Приложении 1, 


Но достаточно вступительных слов, теперь — 
за дело! - 


Наличие пробелов улучшает читаемость текстов про- 
грамм, а отсутствие — экономит память. 
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ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


*+РЕОТ, *«ОКА\ММ\И, *«ММЕ, *«ВОХ, *ТМАМСЬЕ, *ЕСЫРЗЕ, *«СРАТ 


Стандартный Зреснат-Бейсик предоставляет в распоряжение 
пользователя три графических оператора: РЕОТ, ОКАМ/И и СЮВСЕЕ. 
Диалект РКО-РО5$ дополняет этот список еще семью. 


Операторы 


*РЕОТ х, у 
*ОВА \/ х, у 


очень похожи на свои стандартные аналоги. Отличие заключается 
в том, что *РЕОТ и *ОКА\/ достунна вся площадь экрана, включая 
две нижние символьные строки (служебный экран). Следователь- 
но, Аля этих операторов размеры экрана составляют не 256х176 
точек, как для операторов станлартного Бейсика, а 256х192. 
Нелишне будет заметить, что для функции стандартного Бейсика 
РОИМТ (х, у) (см. стр. 88), информирующей о состоянии пикселя 
(включен-выключен), служебный экран по-прежнему остается не- 
лоступным. 

Поскольку начало отсчета координат привязано к нижнему лево- 
му углу экрана, то для графических операторов РКО-РО$ оно сме- 
щается на 16 никселей вниз. Следовательно, результаты выполне- 
ния операторов ОКА\/ и РЕОТ, с одной стороны, и *ОКА\У/И и «РЕОТ, с 
другой стороны, при одинаковых параметрах не булут совпадать. В 
этом легко убедиться, выполнив следующую программу: 


30 РЬЕОТ 30,30: ОКА\/И 70,70: КЕМ Стандартные операторы 
40 *РЕОТ 30,30: «ОКА\У 70,70: РЕМ Операторы РКО-2О$ 
50 РАЦЗЕ 0 


Аля полноты картины следует еще добавить, что *«ОВА\\, в от- 
личие от ОКА\У\/, не умеет рисовать дуги и вообще не «переварива- 
ет» введение трех параметров. 


Человек, мало-мальски знакомый с иностранными языками, 
легко сообразит, что операторы *ЫМЕ, *ВОХ, +ТМАМСЕЬЕ, и *ЕНАР$Е 
строят на экране, соответственно, отрезок прямой, прямоугольник, 
треугольник и эллипс. Этим операторам также доступны все 24 
символьные строки экрана. Формат первых двух операторов 
одинаков: 


_ *ЫМЕ х1, У1, х2, у2 
*ВОХ х1, у1, х2, у? 


В первом операторе двумя парами значений задаются координа- 
ты концов отрезка, во втором — координаты расположенных по 
диагонали вершин прямоугольника. Так, программа 


30 ЕТ х1=20: ВЕТ х2=120: ЕТ у1=50: ВЕТ у2=150 
40 *ЫМЕ х1, у1, х2, у2 

50 *ВОХ х1, у1, х2, у2 

60 РАЦЗЕ 0 
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нарисует на экране прямоугольник и его диагональ. Отметим, что 
инструкции 


*Ы МЕ х1, у1, х2, у2 


и 
*жЫМЕ х2, у2, х1, у! 


эквивалентны. То же самое касается и различных вариантов за- 
писи оператора *ВОХ: 


*ВОХ х1, у1, х2, у2 

*ВОХ х2, у2, х1, у1 

*ВОХ х], у2, х2, у1 
и 

*ВОХ х2, у1, х1, у2 


К сожалению, стороны прямоугольника, построенного операто- 
ром *ВОХ, всегда параллельны осям координат. 


Оператор *«ТМАМСЕЕ требует 6 параметров: 
*ТНАМСТЕ х1, У1, х2, у2, хз, уз 


В списке параметров фигурируют пары «абсцисса-ордината» 
трех вершин треугольника, причем порядок перечисления этих 
пар непринципиален. 

Если операторы *Н МЕ, *ВОХ и *ТКАМСЕЕ являются по сути избы- 
точными (их действие легко смоделировать с помощью *РЕОТ и 
*ОКА\М/), то оператор *ЕЁЫР$Е уникален: ничего похожего нет ни в 
стандартном Зресиат-Бейсике, ни в каком-либо из известных его 
диалектов. Он строит эллицс, что сделать с помощью других опера- 
торов не так-то просто (хотя и возможно). Следом за ключевым сло- 
вом *ЕЁЫР$Е указываются 4 параметра: 


*ЕТЫР$Е х, у, а, Ь 


Первые два параметра (х, у} определяют координаты центра 
эллинса, вторые (а, Б) — соответственно, горизонтальную и верти- 
кальную полуоси. И опять же, как и стороны прямоугольника, 
выводимого оператором *ВОХ, полуоси эллипсов всегда параллель-. 
ны границам экрана. 

Окружность, как известно, является частным случаем эллипса. 
Для ее построения нужно задать одинаковые длины полуосей. 
Действительно, оператор 


*ЕСЫРЗЕ х, у, г, г 


изобразит на экране окружность радиуса г с центром в точке с 
координатами (х, у). Такая альтернатива оператору СЮСЁЕЕ может 
пригодиться при построении окружности в области служебного 
экрана. 


Для ценителей гармонии линий приведем пример программы, 
рисующей семейство концентрических эллинсов: 


30 (ЕТ х=128: "ЕТ у=96: КЕМ Центр эллипса 

40 РОК а=10 ТО 100 $ТЕР 20: КЕМ Горизонтальная полуось 
50 РОК Б=10 ТО 100 $ТЕР 20: КЕМ Вертикальная полуось 
60 *+ЕЦАРЗЕ х, у, а, Ь 

20 МЕХТ Ь: МЕХТ а: РАЦЗЕ 0 
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Несколько замечаний, общих для всех графических операторов 
РКО-РО5. В отличие от стандартных, они не допускают использо- 
вания временных атрибутов. Так, компьютер откажется «глотать» 
конструкцию вроде 


*+РЕОТ ИМК 5; 30, 40 


Более того, графические операторы совершенно равнодушны к 
постоянным атрибутам, установленным инструкциями ИМК, РАРЕК и 
другими (не в составе оператора РЮ®АМТ). 


Цветную графику можно получить, лишь вставив в программу 
фиктивный оператор печати: ничего не печатающий, но уста- 
навливающий атрибуты, например: 


РАМТ ИМК 5; ОУЕК 1; ВЮЮНТ 0 


Попробуйте молифицировать программу построения эллипсов, 
добавив в нее под номером 35 приведенную строку. 

Графические операторы РКО-РО$ иначе, чем их стандартные 
аналоги, реагируют на выход за границы экрана в процессе пост- 
роения линий. Предоставим читателю возможность самостоятель- 
но поэкспериментировать, присваивая параметрам графических 
операторов большие значения (но не более 255). При этом особен- 
но забавные эффекты будут получаться при выполнении операто- 
ра *ЕБЫР$Е. В отличие от стандартных графических операторов, 
при выходе линии за пределы экрана в ряде случаев не выдается 
сообщение об ошибке, например 


*+РЕОТ 128,96: *«ОКА\\/ 200, 200 


или 
*+ЕБСРЬЕ 128,96,50,100: РАЦЗЕ 0 


Действие всех графических операторов РКО-РО5 может быть 
модифицировано с помощью оператора 


*СРАТ п 


Он устанавливает вид линий, которыми будут производиться 
графические построения: сплошные, с разрывами или вообще 
невидимые. 

*+жСРАТ относится к неисполняемым операторам (подобно ИМК, РАРЕК 
и другим). Это означает, что сам он не вызывает никаких действий, 
а лишь влияет на результат выполнения некоторых последующих 
инструкций. Позволим себе привести в качестве аналогии устав- 
ные армейские команды «ШАГОМ» и «БЕГОМЬ, которые сами не 
оказывают никакого видимого воздействия на дисциплинирован- 
ных военнослужащих, а лишь сообщают, что им придется делать 
после команды «МАРШь. Операторы такого типа характерны для 
РВО-РО5, и мы еще не раз с ними встретимся. 

Вид линии для графических построений задается параметром п 
(0...255), следующим за оператором *СРАТ. Его значение, записан- 
ное в двоичном виде, наглядно представляет периодически повто- 
ряющийся элемент линии — 8 пикселей, из которых включенным 
пикселям соответствуют единицы, а погашенным — нули. Улобно 
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вводить параметр в операторе *СРАТ в 
двоичном виде с помощью а 
ВИЧ. Например, вместо 


35 жСРАТ 105 
записывать 
35 *+СРАТ ВМ 01101001 


Попробуйте вставить приведенную 
строку в пример программы, рисую- 
щей эллипсы (рис. 7). 


Выполнение *СРАТ с нулевым аргу- Рис. 7. Построения 
ментом заставляет графические опе- прерывистыми линиями. 
раторы «строить» фигуры неви- 
димыми линиями. Оператор *СРАТ 255 
восстанавливает режим рисования сплошной линией; этот же ре- 
жим устанавливается при инициализации РКО-РО$. 


*СРАТ имеет и еще олно полезное применение, о котором ло- 
гичнее рассказать в слелующем разделе. 


ЗАКРАШИВАНИЕ КОНТУРОВ 


*РВОХ, жРЕЁЬ, «РАМТ, *НАТСН, *«МАТСН 


Мы выяснили, как рисовать на экране контуры геометрических 
фигур. Теперь неплохо бы научиться их закрантивать. 

Елинственной фигурой, которую можно получить на экране 
сразу закрашенной (или, как говорят, залитой) без предваритель- 
ного прочерчивания контура, является прямоугольник. Его постро- 
ение и заливку делает оператор 


*РВОХ х1, у1, х2, у2 


Формат этого оператора совпадает с форматом оператора +ВОХ. 
Фигуры могут быть залиты не только сплошным фоном, но и 
неким периодически повторяющимся рисунком — текстурой. При 
работе с *РВОХ текстура задается оператором *СРАТ, рассмотрен- 
ным в предыдущем разделе. Аля примера выполним программу: 


30 «СРАТ ВМ 10000000: РЕМ Шаблон линии 
40 +«РВОХ 30, 30, 130, 100: КЕМ Прямоугольник 
50 РАЦЗЕ 0 


Текстура для закраски прямоугольника формируется из вплот- 
ную прилегающих друг к другу горизонтальных линий. Линии 
составляются из отрезков длиной в 8 пикселей (период трансляции 
равен 8), структура которых задается оператором *СРАТ. Если в 
пределах ширины прямоугольника помещается дробное число та- 
ких отрезков, то следующая линия будет начинаться с того места 
отрезка, где закончилась предыдущая. Это приводит к тому, что 
при неизменном параметре оператора *СРАТ (то есть при одинако- 
вом виде линий) будут получаться различные текстуры для прямо- 
угольников с различными остатками от деления их ширины на 
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число 8. Линии получаются по-разному сдвинутыми относительно 
друг друга. Последнее станет яснее, если выполнить несколько раз 
приведенный выше пример, заменяя в 40-й строке число 130 на 
ТЗ1, 132 ит. д. вплоть до 138. 

*+РВОХ — единственный оператор заливки; работающий столь 
необычным образом. Ко всем прочим операторам этого раздела 
*СРАТ никакого отношения не имеет. 


Если возникает необходимость закрасить контур произвольной 
формы, его надо сначала построить. Аля этого можно воспользо- 
ваться как средствами стандартного Бейсика, так и операторами 
РКО-РО5. Если применяются последние, то нужно следить, чтобы 
они «рисовали» обязательно сплошными линиями, иначе заливка 
«просочится» сквозь контур. Во избежание неприятностей перед 
экспериментами с заливкой лучше установить режим рисования 
сплошной линией, вкедя прямо с клавиатуры *СРАТ 255. 


*жЕЩЕ х, у 


выполняет сплошную (не текстурную)} заливку. Параметрами хиу 
задается координата любой точки внутри закрангиваемого конту- 
ра. Попытка указать координаты точки, расположенной за преде- 
лами замкнутого контура, приведет к сообщению об ошибке (это 
замечание относится ко всем операторам заливки}. Проде- 
монстрируем работу оператора *Р Ш следующей программой: 


30 *ВОХ 30, 70, 140, 100: КЕМ Прямоугольник 

40 *жЕРЧРЗЕ 50, 50, 45, 30: КЕМ Перекрывающий его эллипс 
50 «ЕШЬ 80, 80: РЕМ Сплошная заливка 

60 РАЦЗЕ 0 


Простейшим из операторов, позволяющих выполнять текстур- 
ную заливку контура, является 


*РАПМТ х, у 


Формат его совпадает с фор- 
матом оператора *Р!\. За- 
меним в последнем примере 
*РИС на *РАМТ, оставив все 
прочее без изменений. Когла 
программа отработает, мы уви- 
дим ровный, но не слишком 
оригинальный узор (рис. 8). 
Получить другой узор с 
помощью *РАПМТ, увы, невоз- 
МОЖНО. 


Более универсальными в Рис. 8. Заливка оператором 
группе операторов, вынполня- Е *+ РАМТ. 
ющих заливку, являются 


*жНАТСН и *МАТСН. 
*НАТСН х, у, аааг 


позволяет заливать замкнутые контуры любым узором с пе- 
риодом трансляции 8 пикселей по вертикали и 8 по горизонтали. 
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Первые два параметра (х, у) 
залают координаты любой 
точки внутри контура (как в 
*РЬЁ и *РАМТ). Третий (аааг) — 
адрес (0...65535) начала 8- 
байтовой области памяти, где 
закодировано изображение 
некоего символа. Этим симво- 
лом и будут заполнены все 
знакоместа (8х8 пикселей) 
внутри контура. В знакоме- 
стах, пересеченных контуром, 
прорисовывается лишь часть 
символа, попавшая вовнутрь 
контура. 


Изображение символа формируется стандартным для 
Г.Х 5ресиит способом, поэтому создавать текстуру для заливки Вы 
можете сами. Для этих целей удобно пользоваться областью симво- 
лов, определяемых пользователем (ИРС), где после включения 
компьютера размещаются изображения прописных латински 
букв от А до 0. Выполним программу: 


30 +ВОХ 30, 70, 140, 100 
40 +ЕТЫРЗЕ 50, 50, 45, 30 
50 *НАТСН 80, 80, 45К "Р" 
60 РАЦЗЕ 0 


Контур будет заполнен буквами Р, изображение которых хра- 
нится в 8 ячейках памяти, начиная с адреса 65488 (значение, 
возвращаемое функцией \Ц5$Ю "Р"). Изменяя эти 8 байт, можно соз- 
дать любую текстуру. Оригинальные узоры получаются, если под- 
ставлять в оператор *НАТСН произвольные адреса памяти 
Г.Х бресиит (например, адреса 
в ПЗУ). Замените в примере 
9$К "Р” на 0, 1, 2 ит. д. и пос- Нин: 
мотрите, что получится. а» 


Интересно также взглянуть, 
что произойдет, если восполь- 
зоваться оператором *НАТСН 
там, где он один раз уже отрабо- 
тал, то есть попытаться «пере- 
красить» залитый контур: 

30 *ВОХ 30, 30, 140, 100 Рис. 9. «Перекраска» текстуры 
40 +ЕЦР5Е 50, 50, 45, 30 ‘оператором +НАТСН. 

50 *НАТСН 80, 80, 4$ "Р" 

60 +НАТСН 80, 80, 45В "Т": ВЕМ Заменится ли текстура? 

70 РАЦЗЕ 0 


Не правда ли, это не совсем то, что мы ожидали (рис. 9}? При 
повторной заливке текстуры наложились одна на другую необыч- 
ным образом. 
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Полностью заменить текстуру 
(то есть предварительно“ стереть 
предылущую) можно, выполнив 
оператор 


*+жМАТСН аааг 


Его действие относится к конту- 
ру, который последним был закра- 
шен с помощью оператора *НАТСН 
(но не «РАМТ и не *РЫ.). Проверим Рис. 10. «Перекраска» 
это, заменив в предыдущем приме- текстуры оператором *МАТСН. 
ре строку 60 на 


60 «МАТСН Ц5$® "Т": ЮЕМ Теперь точно зальется! 


ТТТ 


Вот теперь, действительно, произошла смена текстуры (рис. 10). 


ОКНА 


жУУНМОО\\, ж«УУИЗРЕ, жМЕМ\У, *«УУКАР, *«МО\УУКАР, *«КОЁЕС, *5СКОЁЕЕ, 
*СТЕАК, *СЬ5, *ТРАТ 


В РКО-РО$ имеется группа операторов, предназначенных для 
работы с текстовыми окнами. Текстовым окном называется прямо- 
угольная область экрана, в которую может быть направлен вывод 
символьной информации. В РКО-РО$5$ размеры окна должны сос- 
тавлять целое число знакомест. 

До того как выполнен первый оператор работы с окнами, счита- 
ется, что в РКО-ОО5 определено восемь одинаковых окон разме- 
ром во весь экран (32х24 знакоместа). Если такое равноправие 
Вас не устраивает, прежде всего укажите, с каким окном Вы 
намерены работать, то есть определите текущее окно. Делается это 
с помощью оператора 


*УМОО\М п 


Параметр п задает номер окна и может быть в пределах от 0 до 
255. Однако учитываются лишь три младших бита этого числа, по 
которым и определяется номер окна (с 0 по 7). Следовательно, под- 
ставив вместо п число 8, мы назначим текущим нулевое окно, 9 — 
первое ит. д. Оператор *«У/ИМООМ/ п, как и *СРАТ, является неиспол- 
няемым. Он лишь указывает послелующим операторам, в какое 
окно осуществлять вывод. 


Оператор *У/ЗХЕ служит для установки размеров текущего окна. 
Его формат: 


*жМ 512Е Х1, \4, Х2, \У2. 


Параметрами Х1 и \! задаются координаты левого верхнего угла 
окна, Х2 и \2 — правого нижнего. Мы намеренно обозначили 
координаты не строчными, как обычно, а прописными латин- 
скими буквами, чтобы показать, что система «оконных» координат 
отличается от той, в которой работают графические операторы. 
Вообще говоря, это та же система координат, которая применяется 
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в стандартном Бейсике для обозначения позиций печати, то есть 
все величины измеряются в знакоместах, а началом отсчета (0, 0) 
считается верхнее левое знакоместо экрана. 


Оператор 
*МЕМИ 


деинициализирует все ранее установленные окна, и опять каждое 
из 8 окон будет занимать целиком весь экран. 

После того, как окно произвольного размера устанавливается 
текущим (оператор «УМИМООМ/), вывод информации в него будет 
осуществляться так, как будто ничего не изменилось, только экран 
стал меньше. Правда, при заполнении окна Вы будете избавлены 
от характерного для стандартного Бейсика вопроса $сго#. Но 
скроллинг все же происходить будет, причем помимо Вашего же- 
лания. Давайте поэкспериментируем: 


30 +МИМОО\У 0: КЕМ Работаем с окном номер 0 

40 ж\УУУЕЕ 10, 10, 20, 20: КЕМ Установим его размер 

50 РАМТ "У/тао\и Мо. 0": РЕМ Где окажется надпись? 

60 РЮМТ АТ 3,3; "АТ 3,3": РЕМ А эта? 

70 РЕМТ "а $нта" '"пех+ знта": ВЕМ Как работает символ апост- 
рофа? 

80 РАЦЗЕ 200: МК 6: РАРЕК 7: КЕМ А атрибуты? 

90 [$Т: КЕМ Неужели листинг тоже выведется в окно? 


Из результата выполнения строки 60 видно, что позиция печати 
отсчитывается от левого верхнего угла окна, а не всего экрана. 

Обратите внимание, что работа операторов стандартного 
Бейсика РЮМТ и 1$Т в РКО-РО$ имеет некоторые особенности. Как 
уже отмечалось, введение в программу строки 


ОРЕМ 42, "Р" 


сделает доступными для вывода две строки (22 и 23}, относящиеся 
к служебному экрану. Встретив эту инструкцию, Зрессу уже не 
станет возражать против команд типа РАМТ АТ 22,пи РЮМТ АТ 23пи 
честно выполнит их, если они имеют смысл для текущего окна. 
Оператор вывода текста в строку, номер которой болыне высоты 
окна (вплоть до печати в строку номер 255), приведет к скроллингу 
на соответствующее число строк и присвоит знакоместам новых 
строк текущие атрибуты. Аля лучшего понимания сказанного по- 
лезно посмотреть, как работает слелующая программа: 

30 РОК М=0 ТО 30: РЕМ Попробуем вывести 31 строку 

40 РАМТ АТ М,0; МК МТ(®МО*7+.5); РАРЕК ИМТ(ЮМО+7+.5); РЕАЗН 

ИЧТ(РМО-+.5); М: РЕМ Да еще в цвете. 
50 РАЦЗЕ 100: МЕХТ М: РЕМ И не спеша 


Здесь в качестве окна используется весь экран. Интересно, что 
РКО-РО5 «пропускает» и инструкции типа РЮИМТ АТ п, т, где т боль- 
ше ширины текущего окна (вплоть до 255}. Такие операторы просто 
игнорируются. Добавив в конец предылущего примера строку 


70 РЕМТ АТ 0, 200; "ж+ж" 


можно в этом убедиться. 
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Большинство управляющих символов, используемых в операто- 
ре РЮМТ, работает как обычно, кроме запятой, которая может и 
игнорироваться. 

В некоторых случаях описанные особенности операторов выво- 
да на экран являются нежелательными. Например, может вызвать 
трудности отсутствие запроса $сго при просмотре листинга прог- 
раммы или выводе на экран каких-нибудь длинных таблиц. Эти 
трудности легко преодолимы. Самый простой способ вернуть опе- 
раторам РЮИТ и Н5$Т их исконные, принятые в стандартном Бейсике 
свойства — отключить на время канал "Р", например: 


СЕОЗЕ #2: М$Т: ОРЕМ #2,"Р" 


В этом случае листинг будет выдаваться с запросом зсгоВ и не в 
текущее окно, а как полагается, на весь экран. 
`Если в программе требуется выводить данные на экран как 
«продосовским», так и стандартным способами, проще для послел- 
него открыть специальный поток. Сделать это можно, включив в 
программу строку 


30 ОРЕМ #4, "5" 


После этой строки операторы РАМТ и Н$Т будут работать так, как 
им положено это делать в РКО-РО5$, а стандартный бейсиковский 
вывод будут осуществлять операторы РАМТ #4 и Ы5Т #4. 

Скроллинг в окне можно заблокировать оператором 


+ МУКРАР 


После его выполнения текст будет выводиться с верхней левой 
позиции окна, замещая уже существующий текст. Впрочем, опять 
же без какого-либо запроса на разрешение сделать это. Вернуться 
к обычному скроллингу можно с помощью оператора 


*жМО\М/КАР 


После инициализации РКО-РО5 всегда по умолчанию уста- 
навливается режим *МО\У/КАР. | 


Для принудительного скроллинга изображения в окне служат 
два похожих оператора: «ВО и *5СКОШ. Оба имеют одинаковый 
формат: 

*5 СКО. т, п 

*жКОГЕ т, п 


Параметром п определяется направление скроллинга. Из сооб- 
ражений наглядности разработчик РКО-РО5$ связал значения это- 
го параметра с цифровыми обозначениями соответствующих кур- 
сорных клавиш 7.Х 5ресйит: 


п=5 влево; 
п=б6 - вниз; 
п=7 вверх; 
п=8 вправо; 


п=5+6=11 влево-вниз; 
п=5+7=12 влево-вверх; 
п=8+6=14 вправо-вниз; 
п=8+7=15 вправо-вверх. 
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Вообще говоря, параметр п может принимать любые значения в 
диапазоне —255...255, однако предсказуемый эффект дадут лишь 
приведенные выше. 

Нараметром п (-255...255) задается количество знакомест, на 
которое нужно осуществить смещение текста в окне (в направ- 
лении, указанном параметром п). Параметр т, равный нулю, за- 
блокирует скроллинг. 

В чем же отличие между операторами *5СВОН. и «ВОЦ? Первый 
осуществляет обычный (нециклический} скроллинг. После его вы- 
полнения текст при смещении будет уходить «в никуда». *КОЁЁ 
реализует циклический скроллинг: символы, исчезнувшие у одной 
границы окна, тут же будут появляться у противоположной. 


*+СТЕАВ п 


Оператор *СЬЕАК дает возможность быстро очищать окно и уста- 
навливать в нем цветовые атрибуты. Значения параметра п могут 
быть любыми в диапазоне 0...255, хотя интерес представляют линь 
первые четыре числа (лальше все повторяется}. Оператор *СЬЕАВ 3 
очистит окно и установит для всех его знакомест значения атрибу- 
тов, которые носледними встретились при выполнении програм- 
мы. Причем неважно, какие это были атрибуты: постоянные или 
временные. Так, приведенная ниже программа, в конечном итоге, 
очистит указанное окно и окрасит его в красный цвет (РАРЕК 2} без 
мерцания (РЕАЗН 0): 

30 +«УИМОО\У 0: КЕМ Текущее окно 

40 +\УУ/ЗГЕ 3, 3, 10, 10: КЕМ Размеры окна 

50 РАЗН 1: РЕАМТУМК 3; РАРЕЕЮ 4; "ж+ж"; ИМК 1; РАРЕК 2; "+++"; 
РЕАЗН 0; 

60 *«СЬЕАК 3: КЕМ Очистка окна 


*СТЕАК 2 сделает все то же самое, но не удалит ранее выведен- 
ные в окно символы. *СЁЬЕАК 1, напротив, очистит окно от симво- 
лов, а атрибуты оставит без изменений. Вы можете убедиться в 
этом, меняя параметр оператора *СЁЕЕАК в строке 60 приведенной 
программы. Таким образом, результат последовательного выпол- 
нения *СЁЕАК 1 и +СЬЕАК 2 эквивалентен тому, что получится при 
выполнении *СЁЬЕАКЮ 3. Что касается *СЬЕАЮ 0, то он вообще не 
вызывает никаких изменений. 

Но возможности оператора СЬЕАКВ шире. Выполните пример: 


30 «МИМОО\и 0 

40 *«\МИЗЕ 3, 3, 10, 10 

50 РЮМТ/МК 3; РАРЕР 4: КЕМ Пока все понятно... 

60 *ТРАТ ВМ 01001100: КЕМ ... а это что-то новенькое 
70 «+СЕЕАК. 3 


и обнаружите, что окно залито текстурой в соответствии с шабло- 
ном, заданным оператором 
*ТРАТ 


Попробуйте изменить параметр оператора *СЬЕАВ в строке 70. 
Вы увидите, что ноль снова не приведет ни к какому эффекту, 
единица даст черно-белую заливку окна текстурой, а двойка: 
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закрасит окно атрибутами (в соответствии со строкой 50), но без 
текстурной заливки. 


Оператор 
*СЬ$ 


делает в точности то же самое, что и *«СЬЕАК 3, и введен, по-видимо- 
му. для удобства. Совместная работа *ТРАТ и *СЁ$ напоминает 
действие пары *СРАТ и *РВОХ. Однако для *ТРАТ и *СЁ$ соседние 
горизонтальные линии заливки смещаются друг относительно дру- 
га на один пиксель, и это приводит к тому, что узор в окне имеет 
вид диагональных полосок. По-видимому, не требует особых пояс- 
нений утверждение, что 


*ТРАТ 255: «СЁ $ 


ласт сплоигную заливку окна, а 
*+ТРАТ 0: *СЬ$ 


очистит окно от текстуры. Повторное использование этих двух 
операторов в одном и том же окне приведет к замене текстуры на 
новую. 


Напоследок отметим, что графические операторы при выводе на 
экран игнорируют факт существования окон. 

Некоторые дополнительные сведения 0б окнах приведены в 
Приложении 4. 


ШРИФТЫ 


*жССНК, «СНК, «СУШЕ, *«ГАКСЕ, «+МОКМАЕ, «ПОЮ 


Подобно таким мощным диалектам Бейсика, как Меда-Ваз1с и 
старшие версии Ве Ваз1с, маленький РКО-РО5$ позволяет рабо- 
тать со шрифтами различных размеров. 

Простейшей операцией со шрифтом, выполняемой РКО-РО5$, 
является переключение набора символов со стандартного (ширина 
знака 8 пикселей) на узкий (ширина знака 4 пикселя). Делает это 
переключение оператор 


*ССНЮ 


Применяется узкий шрифт так же, как и обычный (с учетом 
приведенных в предыдущем разделе особенностей вывода данных 
в окна). Только атрибуты для двух смежных символов, вписанных 
в стандартное знакоместо (8х8 пикселей), естественно, будут всег- 
да одинаковы. Кроме того, узкие символы не распознаются функ- 
цией стандартного Бейсика $СВЕЕМ$ (Х,У) (см. стр. 92). 

После переключения на узкий шрифт произойдет переопреде- 
ление всех зарегистрированных в системе окон. За единицу изме- 
рения величин, определяющих расположение и размеры окна, 

будет принято не стандартное, а узкое знакоместо (4х8 пикселей). 
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Приведем пример, который иллюстрирует-эту достаточно неор- 
динарную особенность: 


30 ж\М/ЗШЕ 10, 2, 16, 8: РЕМ Единственное окно 

40 *ТРАТ ВМ 11100010: РЕМ Шаблон для его заливки 
50 ©О $3В 100: КЕМ Сходим на заливку 

60 *«ССНК: КЕМ Узкий шрифт 

70 РАЩФЗЕ 100: СО $3В 100: КЕМ Зальемся еще разок 
80 $ТОР | 

100 +жСТ$: РАМТ "*+*ж*ж"; РЕТОЮМ: РЕМ Здесь заливают - 


Результат работы программы приве- и 
ден на рис. 11. ки 


Создается впечатление, что на экра- 
не присутствуют два различных окна. 
На самом же деле, это одно и то же, 
определенное в строке номер 30 окно, 
которое по-разному трактуется в зави- 
симости от типа установленного шриф- 
та. Попутно заметим, что изменение 
размера шрифта не влияет на фактуру 
заливки, заданную инструкцией *+ТРАТ. 


Если узкий шрифт инициализирован сразу после запуска РКО- 
РО5 или после команды *МЕ\МУ, то для него будет доступна лишь 
левая половина экрана. Строка, длиннее 32 символов, будет пере- 
носиться, а попытка выполнить, скажем, оператор 


РАМТ АТ О, 40; "жжж" 


будет игнорироваться. Чтобы сделать доступной для узкого шриф- 
та правую половину экрана, необходимо создать окно соответству- 
ющего размера, например, оператором 


*жУУЗЕ 0, 0, 63, 23 


Рис. 11. «Раздвоение» 
окон. 


Восстановить режим печати нормальным шрифтом, то есть от- 
менить действие *«ССНКВ, можно при помощи оператора 


*жСНЮ 


Если узкий шрифт по своим свойствам практически аналогичен 
обычному, то шрифты, которые мы с известной долей условности 
будем называть графическими, существенно отличаются от него. 


Размер графических шрифтов задается неисполняемым опера- 
тором 


*жС$1ТЕ п, т 


и может быть только кратным (и, в частности, равным) размеру 
стандартного. Первый параметр определяет значение вертикаль- 
ного, а второй — горизонтального масштабных факторов. Оба 
значения могут быть только целочисленными. Например, инструк- 
ция *СЗ РЕ 2, 1 «сгенерирует» шрифт в два раза выше, а +«СЯТЕ 1, 2 
— в два раза шире стандартного. Команда *СУ7Е 32, 24 сформирует 
шрифт, где каждый. символ будет размером во весь экран. Возмож- 
но и дальнейшее увеличение размеров символа (вплоть до 
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*СЫГЕ 255, 255), равно как и уменышение до нулевого размера 
(*СЯЫХЕ 0, т, *СЯШЕ п, 0 или *СУШЕ 0, 0): Однако эти варианты вряд 
ли представляют практический интерес. 

Поскольку оператор *СУ7Е является неисполняемым, в РКО- 
РО5 введен специальный оператор инициализации графического 
шрифта 


*АВСЕ 


Он не требует параметров. После того как +БАЮСЕ встретится в 
программе, РЮМТ начнет печатать графическим шрифтом, размеры 
которого были заданы последним выпслненным оператором *СУ7Е. 
Обратное переключение на стандартный шрифт производит опе- 


ратор 
*МОКМАЕ 


*Ж-АКСЕ без предварительного выполнения оператора *«СЯТЕ ус- 
танавливает графический шрифт с размером, равным стандартно- 
му (8х8 пикселей). То есть по умолчанию считается, что выполнен 
онератор *СЫГЕ 1,1. 


Тенерь о специфике работы с графическими шрифтами. Во- 
первых, при печати с их использованием игнорируются ключевые 
слова АТ и ТАВ — оператор РАМТ выводит символы, начиная с 
левого верхнего угла экрана. Если текст превышает длину строки 
экрана, то вывод продолжается с начала той же строки. 

Позиция вывода устанавливается с помощью оператора 
*жРЕОТ х, у (но не РЕОТ без звездочки!). Параметры х (0...256)} иу 
(0...192) задают координаты верхнего левого угла позиции печати 
первого выводимого символа. Аля того, чтобы в этой позиции не 
появлялась точка, можно использовать конструкцию 


РЕНМТ 1МУЕВЗЕ 1;: «РЕОТ х, у: РЮМТ НМУЕЮЗЕ 0 


При выводе на экран надписей, выполненных графическими 
шрифтами, так же как и при графических построениях, игно- 
рируются знакоместа и окна, символы накладываются на сущест- 
вующее изображение, не стирая его. Это и позволило нам назы- 
вать их «графическими». 

При работе с графическими шрифтами нужно следить за цвето- 
выми атрибутами экрана. Может получиться так, что один символ 
будет окрашен в несколько цветов (хотя это не всегда плохо). 


Уникальной среди диалектов Бейсика является способность 
РКО-РО$ печатать графическими шрифтами в восьми направ- 
лениях. Неисполняемый оператор 


*0 1 п 


определяет направление печати в зависимости от значения пара- 
метра п, которое задается тем же способом, что и для операторов 
скроллинга (см. стр. 143). 
Приведем пример, демонстрирующий возможности графичес- 

ких шрифтов (рис. 12): 

30 «МОЮКМАЕ: КЕМ Стандартный шрифт 

40 РОК 1=2 ТО 15: РАМТ АТЬ, 6; "МОВМАЕ": МЕХТ Е:РЕМ Строки 

стандартным шрифтом 
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50 жСУЕ 2, 2: КЕМ Размер графического шрифта 

60 *«ГАЮКСЕ: КЕМ Инициализация графического шрифта 
70 +0Ю 14: РЕМ Пишем вправо-вниз 

80 РАМТ 1МУЕКЮЗЕ 1;: «РЕОТ 20, 180: РАМТ 1МУЕЕВЗЕ 0; 

90 РАМТ "СКАРН!С": КЕМ Строка графическим шрифтом 


Символы графических шрифтов раз- 


личных размеров формируются непосрел- <. чевиаЕ 
ственно в процессе работы программы из хуновнае 
текущего набора символов, расположенно- "АЗЕНАЕ 
го в ПЗУ или ОЗУ. Поэтому при использо- нб® ВЕ 
вании альтернативного (например, руси- ной 
фицированного} символьного набора авто- | 4 
матически булут получаться графические Е 


шрифты такого же вида. Напротив, изоб- 

ражения символов узкого шрифта зако- 

лированы внутри системного файла РКО- Рис. 12. Возможности 
205$, и поэтому русификация его более графических шрифтов. 
трудоемка*. 


ТЕНЕВОЙ ЭКРАН 
*ЗСВЕЕМ, *5\УАР 


Применение РКО-РО$З для создания демонстрационных и учеб- 
ных программ (например, для видеосопровождения лекций и до- 
кладов) предъявляет повышенные требования к скорости вывода 
картинок и текста на экран монитора. Поскольку система РКО- 
РО5, как и стандартный Зреснит-Бейсик, является интерпретато- 
ром, то она не в состоянии обеспечить высокую скорость выпол- 
нения операций обработки экранного изображения. Это приводит 
к нежелательным задержкам и побочным видеоэффектам, которые 
могут отвлекать внимание зрителя. Для обхода этих трудностей в 
РКО-ООБЗ заложена возможность работы с так называемым тене- 
вым экраном. 

Теневой экран — это область ОЗУ, по размерам равная экран- 
ной области памяти (6912 байт). Предварительно построенное в 
ней графическое изображение практически мгновенно можно пе- 
реместить на экран. 

Адрес начала размещения в памяти области теневого экрана 
задается оператором 


*ж$ СВЕЕМ ааа 


Параметр аа может принимать значения в диапазоне 
0...65535, но, как нетрудно догадаться, не все адреса из этого 
диапазона являются приемлемыми для записи. Хотя ничто не 


Автор этих строк ввел в РКО-РО$ новый оператор *+СНЕМТ, который позволяет 


переключать все шрифты (стандартный, узкий и графические) с латинского набо- 
ра на русский и обратно. 
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помешает посмотреть, как выглядят на экране, Скажем, первые 
6912 байт ЯЗУ. 


а ЧР 
=” = ; 
; \ 


Теневой экран «признают» все 
операторы РКО-РО5$, а также РАМТ 
и Ч$Т. Инструкции стандартного 
Бейсика РЕОТ, ОКА\М/ и СЮСЕЕ ра- 
ботают только с «видимым» экра- 
ном. 

Располагать теневой экран 
лучше всего вслед за бейсик-прог- 
раммой, защитив ее командой 
СЬЕАК аазг—1 (то есть установив 
-— КАМТОР на единицу меньше ал- 

г реса начала теневого экрана). 
Если аачг=16384, то области тене- 
вого и обычного экранов совпадут. 
Кстати, при инициализации РКО- 
РО5 устанавливается именно этот 
= режим, и мы не замечаем сущест- 

вования теневого экрана. 
Содержимое теневого экрана 
мгновенно «перебрасывается» в экранную область ОЗУ, то есть 
становится видимым, с помощью оператора 


*5 МАР 


При этом содержимое теневой области не изменяется, и там 
можно продолжать построения. Все неисполняемые операторы не 
различают теневой и обычный экраны, то есть при переключениях 
с одного экрана на другой сохраняются описания окон, шрифтов, 
заливок. Например, определив окно на основном экране 


*жУ/ИМОО\\/5: МУЗЕЕ 0,0,10,12 


— МЫ «бесплатно» получим точно такое же окно на теневом и 
наоборот. 

Можно пользоваться двумя, тремя и т. д. теневыми экранами 
(сколько поместится в ОЗУ), переключаясь с одного на другой с 
помощью оператора *5СКЕЕМ. *5\У/АР будет работать с текущим 
экран `м, то есть с тем, чей адрес был упомянут в последнем 
выполненном операторе *5СКЕЕМ. 

Перед использованием теневой экран надо хорошенько «про- 
тереть» с помощью *СЁЬЕАК или *СЬ5$, поскольку никто не знает, что 
там находится. Даже если в этой области памяти «сидят» одни 
нули, то это значит, что фон на всем экране будет «радикального» 
черного цвета, что не всегда требуется. Приведем пример, де- 
монстрирующий работу с теневым экраном: 


7 
к 


30 СЬЕАК 39999: КЕМ Резервируем место под теневой экран 

40 +ЕЪЫРЗЕ 80, 80, 70, 30: КЕМ Долго рисуем эллипс на видимом 
экране | | 

50 *5СКЕЕМ 40000: КЕМ Переключаемся на теневой экран 

60 *СЁ$: КЕМ Чистим его 

70 *ЕЪЧРЗЕ 70, 60, 45, 30: КЕМ Рисуем эллипс на теневом экране 

80 +5\УУАР: КЕМ Мгновенно перебрасываем на видимый экран 


149 


РКО-0О5 


ПРИЛОЖЕНИЯ _ 


1. Алфавитный перечень операторов РВО-0О$” 


Таблица 7. 


*жВОХ х1, у1,| Рисует прямоугольник с координатами 135 62984 
х2, у2 | вершин (х1, у1) и (х2, у2) 

*жССНЮ Перекпючает шрифт с нормального на 145 162535 | 
узкий Е 

*СНК Переключает шрифт с узкого на 146 | 62544 
нормальный 

*СЬЕАК Очистка/запивка окна. Параметр 144 161559 

устанавливает режим очистки/ заливки 

*С 5$ Очистка/ запивка окна. Эквивалентен 145 161643 

Е *жСТЕАКЮ 3 

*жСЗЕ п1, п2 | Устанавливает размер символов 62605 
графического шрифта 
Устанавливает направление печати для 147 52242 
графического шрифта | 

*жОКА\М\/ х, у. Рисует отрезок от текущей точки до 135 162752 

точки с координатами (х, у) 
*ЕСЫРЗЕ м: Рисует эплипс с координатами центра 136 | 6302 
а, Б (х, у} и полуосями аи 
а 6284 
— 62320 


[9 = 


ео 


Осуществляет сплошную заливку замкну- 
того контура вокруг точки с 
координатами (х, у) 


Устанавливает шаблон для рисования 
графических объектов прерывистыми 
линиями и текстуру для оператора *РВОХ 


| Осуществляет заливку замкнутого 
контура вокруг точки с координатами 


62577 
139 | 62266 
(х, у) изображениями символа, _ 
закодированными по адресу адаг 


Включает режим графического шрифта 62559 


В таблице приведен адрес подпрограммы РВКО-РО$, реализующей действие опе- 
ратора. 


*-АКСЕ 


* 
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*ЖЫМЕ х2, у2 | Рисует отрезок прямой линии с коорди- |135 | 62896 
натами концов (х1, у!) и (х2, у2) 


*МАТСН Заменяет запивку, попученную послед- 62478 
ним оператором *НАТСН, на изображе- 
ние симвопа, закодированное по адресу 
аааг 


Е Устанавливает стандартные параметры — 60272 
для всех окон 


*жМЧО\М/КАР тети Разрешает скроллинг при запопнении - 
окна 


*«МО®ЮМАЕ = Выкпючает режим графического шрифта 62568 


*РАИМТ Производит текстурную запивку 139 162622 
замкнутого контура вокруг точки с 
координатами (х, у) 


*РЕОТ Рисует точку с координатами (х, у} и 135 | 61321 
| устанавливает в ней позицию печати для 
графических шрифтов 


Осуществляет циклический скроплинг 
окна на одно знакоместо, еспи пл 
отлично от нуля. Параметр п опредепяет 
направление скроллинга 


*5СКЕЕМ аааг | Устанавливает адрес аЯаг начапа 60255 
теневого экрана 


*ж5СЮО Осуществляет нециклический скроллинг 62096 
окна на одно знакоместо, еспи пл отлично 
от нуля. Параметр п опредепяет 
направление скроллинга 

= Копирует содержимое теневого экрана Ее 
в экранную область 

в Устанавливает шаблон для текстурной 
заливки окон с помощью операторов 
*СЁЕАК и *С1$ 


*ТНАМОТЕ | х!, у!,| Рисует треугольник с указанными коор- 
х2, у2,| динатами вершин (х1, у1), (х2, у2) и 
х3, уз 


*УИМООМиИ 


[т [еее еще ово номером 
| п, 02 См. Приложение 4 


‚ Блокирует скроллинг при заполнении _ 
окна 


*УУЗРЕ Устанавливает границы текущего окна: 
(Х1, У!) — координаты левого верхнего 
Х2, \2| угпа; (Х2, У2) — правого нижнего 
(в знакоместах) 


РКО-0О$ 


2. Распределение памяти при работе с РВО-2О$ 


Р_РАМТ (23732)* 
Символы, опредепяемые пользователем 
ЧОС (23675) 
Свободная область 
63788 
Интерпретатор РКО-0О$ 


Свободная область 
РАМТОР (23730) 


Е_НМЕ (23641) 
Переменные Бейсика 
УАЮ5 (23627) 
Бейсик-программа 
РКОС (23635) 


3. Вывод на принтер 


При работе в среде РКО-РО5$ возникают определенные слож- 
ности с выводом на принтер. Выполняемая при инициализации 
РКО-РО5 модификация канала "Р”" (см. стр. 133) дает о себе знать 
при попытке обращения к принтеру: вместо бумаги вывод идет на 
экран. 

РКО-РО5 обычно используют для написания демонст- 
рационных программ, как правило, не требующих работы с 
принтером. Но в некоторых случаях, например, при отладке прог- 
раммы бывает полезно распечатать ее листинг или значения пере- 
менных. Листинг проще всего получить, воспользовавигись коман- 
дой 15Т в момент, когда РКО-РО5$ еще не инициализирована 
оператором КАМОРОМШЕ Ц5$К 60000. Например, для распечатки текста 
фирменной демонстрационной программы РКОРОЗРЕМО можно 
загрузить ее в память с помощью оператора МЕЮСЕ (во избежание 
автоматического запуска программы) и выполнить ЕТ. 

Однако описанный метод не позволяет выводить информацию 
на принтер непосредственно в процессе работы программы. Эту 
проблему можно решить, если перед операцией вывода на принтер 
модифицировать две ячейки памяти, отвечающие за работу канала 

"Р", так, чтобы перенаправить действие операторов печати ЕРЕЧТ 
и ЕЫ5Т с экрана на принтер. А затем, сразу после печати, 
вернуть содержимое этих ячеек в исходное (характерное для 
РКО-РО5) состояние. Указанные ячейки располагаются в 
области информации о каналах^*^ по адресам 23749 и 23750 


* 
В скобках приведены адреса системных переменных, в которых записаны зна- 


чения адресов соответствующих границ областей памяти. 
Подробнее см. в [1]. 


*х 
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(если подключен и инициализирован Веа-П15кК ПиеГасе, то по 
адресам 23861 и 23862). В этих ячейках должен содержаться адрес 
процедуры (драйвера), обслуживающей канал "Р". При ини- 
циализации РКО-РО5З в них записывается значение 60514. Перед 
работой с принтером это значение надо заменить на адрес приме- 
няемого драйвера (первая ячейка должна содержать младший байт 
адреса, а вторая — старший). 

Если Вы владелец фирменного #Х 5ресНат с «родным» для 
него принтером 7.Х-Ргицег, то нужный драйвер «зашит» в ИЗУ по 
адресу 2548 (#0924). В этом случае программа, использующая 
вывод на принтер, может выглядеть так (предположим, что диско- 
вый интерфейс отсутствует): 


10 КАМОРОМИЕ Ц5$Ю 60000 
20 ОРЕМ #2, "Р" 


100 ЕТ а=100: ВЕТ 6Б=200 


200 РОКЕ 23749,244: РОКЕ 23750,9: КЕМ Размещаем младший и 
старший байты числа 2548 

210 ЕРАНТ а: ЕРАМТ Ь: РЕМ Любые операции вывода на принтер 

220 РОКЕ 23749,98: РОКЕ 23750,236: КЕМ Размещаем младший и 
старший байты! числа 60514 


Программа выведет значения переменных а и Ь на принтер. 

Если у Вас самодельный Зреснат-совместимый компьютер с 
нестандартным принтером, то нужно вместо значения 2548 под- 
ставить адрес размещения этого драйвера. Чаще всего драйверы 
располагают в ОЗУ в области буфера принтера по адресу 23296. 
Если это так, то достаточно заменить строку 200 в приведенном 
примере на слелующую (для разнообразия примем, что Вы еще и 
обладатель интерфейса Веа-Р15К, тогда изменится и 220-я строка): 


200 РОКЕ 23861,0: РОКЕ 23862,91: РЕМ Размещаем младший и 
старший байты числа 23296 
220 РОКЕ 23861,98: РОКЕ 23862,236 


Разумеется, строки с номерами 200 и 220 можно оформить в 


виде Авух Нодпрограмм и вызывать их каждый раз при необ- 
ходимости вывода на принтер. 


4. Дополнительные сведения об окнах 


РКО-РО5 располагает еще одним оператором — *\М/РОКЕ. Он 
меняет содержимое внутренних системных переменных РКО-РО5, 
описывающих текущие параметры окон. Выполнение 


*жУУРОКЕ п, т 
эквивалентно действию оператора 
РОКЕ 60321+АВ$(п), АВ$(т) 
— где пи т — целые числа в диапазоне —-255...255. 
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Внутренние системные переменные расположены в области 
ОЗУ, начиная с адреса 60321. Аля каждого окна, включая нулевое, 
в этой области отведено по 20 байтов. Объем всей области пере-. 
менных равен 8х20=160 байт. 


Оператор 
*УУРОКЕ 20*\ми/-+(у—1), К 


запишет число К ву-ю ячейку области системных переменных м-го 
окна. 


Назначение ячеек: 


1...4 — размеры окна. Устанавливаются оператором *МУЗХЕ. Начальные значения — 0, 0, 
ЗТи 23: 


5 иб — координаты текущей позиции печати (номер столбца, номер строки). Начальные 
значения — би0; 


Ти 8 — координаты последней выставленной точки. Изменяется только при выполнении 
графических операторов РКО-ОО$. Начальные значения — Ои 191; 

9 — тип заливки окна. Устанавливается оператором *ТРАТ. Начальное значение — 0; 

10 — тип линии. Устанавливается оператором *СРАТ. Начальное значение — 255; 


1Т и 12 — размер символов графического шрифта. Изменяются оператором *СЗХЕ. На- 
чальные значения —1и1; 


13 — тип шрифта и разрешение/ запрет скроллинга: если установлен режим *МО\УКАР, 
то значение байта равно 128 для стандартного шрифта, 160 — для графического и 192 — 
для узкого. Если установлен режим *\М/ВАР, приведенные значения увеличиваются на 4. 
Начальное значение — 128. (Не следует помещать в эту ячейку неспецифицированные 
значения — это приводит к непредсказуемым результатам); 


14 — направление печати. Устанавливается оператором *0Ю. Содержимое ячейки не сов- 
падает со значениями параметра *0 В: 1 — вправо, 2 — вниз, 4 — вверх и 8 — влево, 
диагональные направления указываются суммой соответствующих значений горизон- 
тального и вертикального, Начальное значение — 1; 


15 — постоянные цветовые атрибуты окна. Значение ны по формуле, приведен- 
ной на стр. 55. Начальное значение — 56 (МК 0; РАРЕВ 7; ВАСНТ 0; РЕАЗН 0); 


16 — не используется; 
17 — атрибуты О\ЕК и НМУЕВ$Е. Значение определяется по формуле 
К = <О\УЕК> +4 х<ИМУЕЮ$Е> +32хС 
- гдеС = 1, если атрибуты после инициализации окна хотя бы раз изменялись, иначеС = в 
Начальное значение — 0; 


18 и 19 — адрес размещения теневого экрана; устанавливается оператором +СРЕЕМ ; 
первоначальное значение — 163. 84 (стандартная экранная область); 


20 — не используется. 


Недостатком оператора *\УУРОКЕ является отсутствие «защиты от 
дурака»: если первый аргумент превышает 159, то *\У/ЮКАР будет 
изменять содержимое ячеек памяти за пределами таблицы «окон- 
ных» переменных. Это может привести к чему угодно, вплоть до 
сброса компьютера. 
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‚ Гажег Ваз$1с* — это целый пакет программ, предназначенный для 
манипулирования графическим изображением. С его помощью 
можно выводить на экран монитора картинки (спрайты), инвер- 
тировать их, поворачивать, зеркально отображать... и, что самое 
ценное, самое нужное, самое приятное — перемещать по экрану. 
Довольно быстро и без особых ухищрений можно создавать мульт- 
фильмы и даже динамические игры. 

Картинки подготавливаются в специальной программе — гене- 
раторе спрайтов, входящей в пакет Газет Ва51с. Можно воспользо- 
ваться и любым графическим редактором для 7Х Зресниат 
(Ак Зато, АтНзЕ ИП) или даже позаимствовать готовые картинки из 
фирменных программ. 

Программы изначально пишутся в интерпретаторе Газег Вазс, кото- 
рый распознает и выполняет более ста новых операторов и функций. 
Отладив программу в интерпретаторе, можно затем обработать ее с 
помощью компилятора Газег Ваз1с. Это значительно (примерно в 2 
раза) увеличивает скорость работы программы, уменышнает занимае- 
мую ею память и защищает ее текст от просмотра. 

В пакет входят также две демонстрационные программы: Бето и 
Сате, задача которых показать все достоинства Газег Ваз1с. 


ТЕРМИНОЛОГИЯ 


Основные объекты, которыми оперирует Газег Ваз1с, — это окна 
и спрайты. 

Окно экрана выделяет прямоугольную область, на которую рас- 
пространяется действие операторов, выполняющих графические 


Автор Кеуш НатЫе{оп, фирма Оа$!15 $оЙу\аге, версия 1.3, спецификация файлов 
приведена в Приложении $5. 
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преобразования. Окно задается с точностью до знакоместа ко- 
ординатами левого верхнего угла, шириной и высотой. 


Другой объект, с которым имеет дело Газег Ва$1с, — это спрайт. 
Если окно привязывается к некой области экрана (причем без- 
различно, что в этой.-области изображено), то спрайт, наоборот, 
имеет собственный внешний вид и может «гулять» по экрану. (Все 
прыгающие, летающие, катящиеся и прочие двигающиеся изобра- 
жения в компьютерных играх и есть те самые спрайты, о которых 
идет речь.) Спрайт (от англ. 5рШе — эльф) можно определить как 
перемещаемый графический объект с неизменными рисунком и 
размером. Спрайты создаются обычно до написания программы и 
хранятся в памяти компьютера 
в виде так называемого спрайт- 
файла. Спрайт-файл может 
объединять до 255 спрайтов 
разного размера (от знакоместа 
и более). По желанию прог- 
раммиста спрайты могут быть 
вызваны из спрайт-файла и 
помещены на экран, где с ними 
можно делать все, что позволит 
Газег  Вазс, и, конечно, 
передвигать. Для чего спрайты 
и предназначены. 


Кроме термина «окно экрана» (или просто — окно) в лексиконе 
Газег Ваз1с есть еще и такое понятие, как окно спрайта, обозначаю- 
щее прямоугольную область спрайта. Выделение в спрайте окна 
позволяет трансформировать, а также выводить на экран не только 
целиком весь спрайт, но и часть его, что бывает очень полезно. 


ИНТЕРПРЕТАТОР 


Интерпретатор Газег Ваз1с не накладывает никаких ограниче- 
ний на использование операторов стандартного Зреснит-Бейсика. 
В этом плане единственным его недостатком можно считать то, что 
он «затирает» область символов, определяемых пользователем* 


Операторы Газег Ваз1с задаются ключевыми словами, состо- 
ящими из пяти символов: первый — точка (.), четыре последу- 
ющих’ — прописные (и только прописные) буквы латинского ал- 
фавита. Например: „РТВ, .МОУЕ. Набираются ключевые слова 
посиИмМвВолЛЬНО. 

При вводе строки программы интерпретатор Газег Ва$1с прове- 
ряет ее на правильность синтаксиса. Строка с ошибкой «не вво- 
длится», а в сомнительном месте обычно появляется мерчанииий 
знак вопроса (}). 


Впрочем, этот недостаток легко устраняется изменением системной переменной 
ОРС (23675/76), см. стр. 64 
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2-к 


Нараметры операторов Газег Ваз1с передаются интерпретатору 
иначе, чем в стандартном Бейсике и других его: диалектах, — не 
указанием значений вслел за ключевым словом, а через специаль- 
ные графические переменные. Перед выполнением оператора необ- 
ходимо присваивать требуемые значения определенным гра- 
фическим переменным*. 

Имена графических переменных состоят из четырех символов: 


первый — точка, остальные — строчные буквы латинского ал- 
фавита. 
Всего графических переменных десять: 
.КО\МИ, .СОЁ — вертикальная и горизонтальная координаты в 
знакоместах (пределы, соответственно, 0...23 и 
ЗЕЕ 
„НСТ, -ЕМ  -— высота и ширина графического объекта 
(окна экрана, спрайта)} в знакоместах (0...24 и 
32) 


Строго говоря, переменные 
„КОМИ, „СО, „НСТ и „1ЕМ могут 
принимать любые значения от 
0 до 255, в том числе и отрица- 
тельные. Однако в этом. случае 
может возникнуть ситуация, 
когла спрайт или окно 
частично или полностью вый- 
дет за пределы экрана. Кроме 
того, надо помнить что 
положительные значения, пре- 
вышающие 127, булут интер- 
претироваться как отрицатель- 
ные и, наоборот, отрицатель- 
ные в пределах —128...-255 — 
как положительные. Например, 
2255 приравнивается к -1, а 
—251 приравнивается к 5. 


м 


.5К\УУ, .5СЁЕ — — вертикальная и горизонтальная координаты 
внутри спрайта в знакоместах; 

.МРХ — величина и направление вертикального 
скроллинга в пикселях (-128...127); 

.ЗРМ — номер спрайта в спрайт-файле (1...255); 

‚ЭР 5РЯ — номера первого и второго спрайтов (1...255) 


для операторов, работающих с двумя спрайтами. 
В отличие от переменных стандартного Бейсика графические 
переменные всегда определены: после загрузки Газег Ваз1с их зна- 
чения равны нулю. 
Присвоение значений графическим переменным происходит 
без использования оператора ЕЕТ. Например: 


.РО\И=1 или .СОЁ=с или .ГЕМ=$+аж*3З 


Из этого правила выпадают только несколько операторов. 
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Графические переменные не могут быть параметрами операто- 
ров, аргументами функций Зреснат-Бейсика или частью выра- 
жений. Нельзя, например, писать: 


ГЕТ а=.ЮО\\И или РАМТ .СОЁ или „.ЗРМ=.СОЁ 


Аля присвоения значений графических переменных обычным 
числовым переменным используются специальные графические 
функции. Имена их идентичны именам соответствующих графи- 
ческих переменных, только вместо точки в них ставится знак 
вопроса (например, КО\М\/, СО... 

Графические функции могут использоваться только с операто- 
ром присвоения в строках типа: 


СЕТ г=КОМИ 


— где г — обычная числовая неременная, ?ВО\У/ — функция, воз- 
вращающая значение графической переменной .ЮКО\У. 

Аналогично, с помощью соответствующих графических функ- 
ций СО, ЧЕМ, ?НСТ, ?$Р1, 3$Р2, ?5РМ, ЗМРХ, ?$СЁ, 15КУИ) числовым 
переменным могут быть присвоены значения остальных девяти 
графических переменных. 

Нужно учитывать, что если какая-либо графическая перемен- 
ная принимает отрицательное значение, то результат выполнения 
соответствующей функции окажется положительным числом боль- 
не 127. Например: 


10 .СОЁ=-5: ЕТ 2=СОЕ 
20 РЕИМТ 7: КЕМ 7 равна не —5, а 251 (256—5) 


Загрузка и запуск интерпретатора 


Фирменный вариант пакета Газег Ваз1с предусматривает воз- 
можность работы всех входящих в него программ с лентой и 
микродрайвом*. Но ряду причин микролрайв в нашей стране не 
получил распространения. Поэтому довольно быстро появилась 
‚версия, поддерживающая работу и с магнитофоном, и с диском в 
системе ТВ-РО5$. Именно о ней и пойдет речь в предлагаемом 
описании. 


Все примеры программ, приведенные в описании, кроме спе- 
циально оговоренных, будут работать и с лентой, и с диском. Если 
Вы пользуетесь дисководлом, то перед операторами ГОАО, $А\УЕ, 
МЕКСЕ и УЕЮРУ следует вставлять РАМООММЕ Ц5$Ю 15619: РЕМ: 

В пакет Газег Ваз1<с включена программа-диснетчер Тазег. За- 
грузим ее, и через некоторое время на экране. появится меню 
(рис. 13) (для ленточной версии пятая и шестая позиции будут 


ее Микродрайв — накопитель на кольцевой магнитной ленте. 
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несколько отличаться от изображенных на! рисунке). Рассмотрим 
позиции меню (опции): = 


1 ЕХЕСОТЕ ГА$ЕВ ВАЗ!С 


Запуск интерпретатора Газег Ваз1с. При выборе этой опции 
бейсик-программа «сбросится» и в ОЗУ останутся только коды 
интерпретатора. После этого можно выполнять операторы 
Газег Ваз1с, загружать и сохранять файлы и т. д.; 


2 ГОАО УОЦВ О\ИМ $РРПЕ$ 
ети 


Загрузка спрайт-файла, создан- 


ного пользователем. На запрос 
ПЧРОТ $РАПЕ 5ТАКТ АБОКЕ$$ нуж- 
но ввести адрес загрузки 
(нижнюю границу} спрайт- 
файла*; 

3 КОАО "5РЕТЕ? А” $РЕПЕ$ 
Загрузка спрайт-файла 
ЗРЕГТЕ?А; 

4 ГОАО "$РЮЕПЕ?В” $РЮТЕ$ 


Загрузка спрайт-файла 

ЗРЕТТЕ?В (этот файл использу- Рис. 13. Главное меню 
ется в демонстрационной прог- программы ГАЗЕКЮ. 
рамме Рето}; 


ВЕТЯ-СТЭК ЗЕАЗТОМН 
.  ЕХЕСОТЕ БЯЗЕР ВАЗТС 
‚„.БОЯС УСУЯ СУМ ЗРАТТЕЗ 
‚.СОЯО “ЗЭРАТТЕ?Я"“ ЗРАТТЕЗ 
‚ - СОЯС “"ЭРАТТЕ2В”" ЗЭРАТТЕЗ 
‚ РАЕТНТ СЯТЯАБОСОЕ 

‚  РЕТОАМ ТО ТЯРЕ МЕМЫ 


оомлргоюыь 


РЬЕЯЗЕ ЗЕСЕСТ СРТТОМ. 


$ ЗАУЕ ТАЗЕВ ВАЗЮС ТО $5'’25 ЕГОРРУ ГИ$К 
либо 
5 РЮМТ САТАГОСИЕ 


Копирование ТГазег Ваз1с с ленты на диск в системе ТВ-РО$ (для 
‚ «ленточного» меню} или выдача каталога диска (для «дискового» 
меню}; 


6 ВЕТИЮМ ТО ТАРЕ МЕМИО либо ВЕТОЮМ ТО 05К МЕМЦ 


Переход из ленточного меню в дисковое и обратно. 


Вывод спрайтов на экран 


Загрузим один из спрайт-файлов, например, фирменный файл 
$РЕТЕ?В** (опция 4 меню), запустим интерпретатор Тазет Ваз!с 
(опция 1) и выведем на экран один из спрайтов, например, пер- 
вый. Аля задания номера спрайта и его местоположения на экране 


* > 
Подробнее см. в подразделе «Изменение размеров области спрайт-файла» и раз- 


деле «Создание спрайтов». 
Во всех примерах данного описания предполагается, что загружен именно этот 
спрайт-файл. 


*х 
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(координат верхнего левого угла) воспользуемся соответствующи- 
МИ графическими переменными: 


10 .5РМ=1: КЕМ Зададим номер спрайта 
20 .КО\М/=10:.СОЁ=10: КЕМ Определим место в 10-й строке 
и 10-м столбце экрана 


Теперь можно выполнить самый простой и самый популярный 
оператор Газег Ваз1с „РТВЕ: 


30 .РТВЕ КЕМ Поместим спрайт на экран 


Вывод на экран части (окна} спрайта 


Если нет необходимости переносить на экран весь спрайт, мож- 
но вывести лишь его часть — окно спрайта. Делает это оператор 
„РУВЕ. Кроме номера спрайта и координат размещения изобра- 
жения на экране, для работы этого оператора следует задать разме- 
ры и координаты окна спрайта, то есть присвоить требуемые 
значения переменным: „НСТ, 1ЕМ — высота и ширина окна, .5СЁЕ — 
левая колонка, .5®\У/ — верхняя строка окна спрайта относительно 
границ спрайта: 


10 .$РМ=1:.КО\УУ=15:.СОЁ=15 

20 .НСТ=2:.1ЕМ=З: КЕМ Размеры окна спрайта 

30 .5СЁЬ=1:.53Ю\У/=0: КЕМ Координаты окна спрайта 
40 .РУУВЕ 


Перенос атрибутов 


Описанные выше операторы вывода спрайтов по умолчанию 
переносят на экран и их атрибуты. Но можно и запретить перенос 
атрибутов, выполнив оператор .АТОР. Вновь разрешает перенос 
оператор .АТОМ. Проиллюстрируем на примере: 


10 .КО\М/=0:.СОЕ=0:.$РМ=4:.РТВЕ: КЕМ Поместим спрайт на экран 
20 .АТОЕ: ВЕМ Запретим перенос атрибутов 

30 .СОЁ=8:.РТВЕ: ВЕМ Выведем «черно-белое» изображение 

40 .АТОМ: КЕМ Вновь разрешим перенос атрибутов 

50 .СОЁ=16:.РТВЕ: КЕМ Выведем как прежде — в цвете 


Следует учитывать, что операторы .АТОМ и .АТОЕ воздействуют 
не только на вывод спрайтов, но и на все операции типа «спрайт— 
экран» и «экран—спрайт», которые будут описаны ниже. 


Преобразование окна экрана 


Перед тем, как начать гонять спрайт, помещенный на экран, из 
угла в угол, поэкспериментируем с ним, не сдвигая с места. 
Газег Ваз обладает широкими возможностями трансформации 
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картинок*. И, что ценно, можно преобразовывать не только все 
экранное изображение, но и его часть, в пределах заданного окна 
экрана. 

Расположение и размеры окон определяются четырьмя гра- 
фическими переменными: „КОМИ, .СОЁ, „НСТ и ЛЕМ. Если окно 
выходит за пределы экрана, оно автоматически обрезается по его 
размеру. 

Операторы, выполняющие графические преобразования, легко 
узнать по букве У (У14ео), завершающей ключевое слово. 

Простейший из операторов, преобразующих картинку, — 
АМУУ. Он инвертирует. изображение в пределах. установленного 
окна экрана, то есть меняет цвет фона на цвет тона и наоборот. 

Оператор .МИ\У выполняет зеркальное отображение картинки 
в окне относительно его вертикальной оси симметрии. Действие 
этого оператора распространяется только на изображение и не 
затрагивает раскраску (атрибуты) окна. Атрибуты отображаются 
специальным оператором .МАВУ. Приведем пример: 


10 .РО\М/=1:.СОЁ=1:.ЦЕМ=14:.НОТ=1: РЕМ Зададим окно 
20 РАМТ АТ 1,1; ИМК Т;”ЪЕРТ": КЕМ Поместим в окно текст 
30 РЮМТ АТ 1,10; МК 2;”ЮЮНТ" 

40 РАЦЗЕ 100:.МЮУ: РЕМ Отобразим текст без атрибутов 
50 РАЦЗЕ 100:.МАКУ: РЕМ Теперь отобразим атрибуты 


Газег Ваз1с позволяет уже после создания экранного изобра- 
жения перекрашгивать его части. Оператор .„$ЕТУ присваивает 
всем знакоместам окна текущие (постоянные) атрибуты. 

Ну и, конечно же, можно очистить окно экрана: выполняет это 
действие оператор .СЁ$У. Он похож на стандартный СЕ$, только 
действует не на весь экран, а на его часть — окно, и, кроме того, не 
изменяет атрибутов знакомест: 


10 .НСТ=3:..ЕМ=6:.РО\У/=4: РЕМ Задание окна 

20 РЮМТ АТ 5,1;"РЕО";АТ 5,6;"УЕЦЕО\И": ВЕМ Вывод в окно 
30 .СОЁ=6: РАРЕК 6:.5ЕТУ: КЕМ Изменение цвета фона в окне 
40 .СОЕ=0: РАРЕК 2:.5ЕТУ: КЕМ Изменение цвета фона в окне 
50 .ГЕМ=12: РАЦЗЕ 100:.1Ч\УУ: РЕМ Инверсия окна 

60 РАЦЗЕ 100:.С1$У: ЮЕМ Очистка окна 


Следующий блок операторов, занятых преобразованием изобра- 
жения, — это операторы, смещающие картинки в окнах экрана на 
заданное число пикселей, то есть производящие скроллинг. 
Газег Ваз1с обеспечивает как простой скроллинг, при котором изо- 
бражение, вытесненное за пределы окна, бесследно пропадает, так 
и циклический, выводящий смещенное за границу окна изобра- 
жение с противоположной стороны. 


Горизонтальный скроллинг изображения (без атрибутов} может 
быть выполнен вправо или влево на фиксированный шаг: 1, 4 и 8 
пикселей. Операторы горизонтального скроллинга „$Е4У, .МЕЧУ, 


* > = 
Здесь картинка — не только помещенный на экран спраит, но и построения, вы- 


полненные с помощью оне операторов $рес{гит-Бейсика, тексты, выве- 
денные оператором РЕМТ и пр. - 
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„5ЗЕ4У ,.МЕДУ, .5Е8У ‚.МЕЗУ, „-5В1У, .МВАУ, .-5Ю4\У, .\МЮ4У, .-5Ю8У 
и .МЕ8У по отдельности описаны в Приложении 1. Но и без 
подсказки можно легко. разобраться, «кто есть кто»: первая буква 
ключевого слова сообщает о виде скроллинга ($ — нормальный, У 
— циклический), вторая — о направлении (Е — левый, ® — 
правый), а цифра — о шаге (1, 4 и 8 пикселей). 


Операторов, отвечающих за 
вертикальный скроллинг изобра- 
жения, в Тазег Вазс лишь два: 
.5СКУ выполняет простой скрол- 
линг, .МСВУ — циклический. Ма- 
ло? Вполне достаточно, поскольку 
величина и направление сме- 
щения при вертикальном скрол- 
линге задаются — специальной 
графической переменной —(„МРХ. 
Она может принимать значения от 
—128 до 127. Модуль значения за- 
дает шаг скроллинга в пикселях. 
Направление определяется зна- 
ком: положительное значение со- 
ответствует скроллингу вверх, от- 
рицательное — вниз. 


Горизонтальный и вертикальный скроллинг атрибутов (на це- 
лое знакоместо}) выполняется операторами .АТЁУ — влево и .АТВУ 
— вправо, .АТМУ — вверх, .АТОУ — вниз. Правда, обеспечивают 
они лишь циклический скроллинг. 

В операциях вертикального скроллинга задействована область 
буфера принтера (см. [1]}. И так как ее объем ограничен 256 
байтами, то вертикальный скроллинг возможен лишь, если резуль- 
тат перемножения значений графических переменных .МРХ и .ЬЕМ 
не превышает 256 (в противном случае может произойти сбой 
программы). Непосредственно в программе проверить это условие 
можно следующей строкой: 


СЕТ Х=ЙМРХ: (ЕТ У=АЕМ: | АВ$ (ХжУ) <= 256 ТНЕМ .М/СВУ 


Наборы переменных 


Специальная переменная .5ЕТ позволяет, единожды задав набор 
переменных, в последующем присваивать целой группе графи- 
ческих переменных нужные значения указанием только номера 
набора. Задаются наборы переменных строками типа: 


10 .5ЕТ=:.НОТ=5: .6ЕМ=5:.КО\М/=0:.СО=0: РЕМ Окно 1] 
20 .5ЕТ=2:.НСОТ=4:.6ЕМ=5:.КО\У/=5:.СОЁ=Е7:.МРХ=1: КЕМ Окно 2 и 
параметр вертикального скроллинга .МРХ 


В данном примере наборам графических переменных присвое- 
ны номера 1 и 2. Всего в программе может быть определено 16 
наборов (от 0 до 15). 
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Теперь, чтобы выполнить, например, горизонтальный скрол- 
линг 1-го окна и вертикальный 2-го окна, достаточно задать: 


50 .5ЕТ=1:.\У/ИЮ4У:.5ЕТ=2:.УИСКУ 


После выполнения этой строки графические переменные будут 
иметь значения, соответствующие последнему вызванному набору 
номер 2. 

Последний указанный в программе набор переменных ста- 
новится текущим. При изменении графических переменных в 
процессе работы программы модифицируется текущий набор 
(остальные наборы не меняются). 


Перемещение спрайтов (1-й способ] 


От преобразования картинки в статичном окне до движения 
спрайта — один шаг. Поместим на экран спрайт. Зададим окно, по 
размерам покрывающее спрайт, и произведем скроллинг. Спрайт 
переместится. Как уже уноминалось, при движении по горизон- 
тали шаг может быть 1, 4 и 8 пикселей, по вертикали — ироизволь- 
ный. Например, это может выглядеть так (рис. 14): 


10 .5РМ=4:.РО\У=0:.СОЁ=0 

20 „.РТВЕ: КЕМ Вывод спрайта на экран 

30 ЕЕМ=3З0:.НСТ=4: КЕМ Окно 

40 РОВ М=1 ТО 240 

50 .У/ЕК1У: КЕМ Скроллинг вправо на один пиксель 
60 МЕХТ М 


Рис. 14. Перемещение спрайта путем скроллинга окна. 


Существенным недостатком такого способа «оживления» спрай- 
тов является то, что перемещение происходит вместе с фоном». 
Ведь скроллинг захватывает все изображение в окне, не разбирая, 
спрайт ли это или что-то иное. 


Перемещение спрайтов (2-й способ] 


Этот способ лишен недостатков предыдущего. Он основан на 
последовательном вызове спрайта на экран оператором .„.РТВЁЕ с 
изменением на единицу значений .КОУ/ и .СОЁЕ. Меняя одну из 
переменных, заставим спрайт двигаться параллельно границам 


* 
В данном случае словом «фон» мы называем любое изображение, находящееся 


на экране. 
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экрана, меняя обе — по диагонали. Спрайт, перемещаемый таким 
способом, должен иметь по краям пустое пространство шириной в 
одно знакоместо. Иначе спрайт, помещенный иа экран в предыду- 
щем шаге, не будет затираться следующим выводимым спрайтом, 
и но экрану протянется след. 

Спрайт, изображенный на рис. 15а, можно двигать во всех 
направлениях. Если же заранее известно, что спрайт будет переме- 
щаться, например, только налево, то для скроллинга достаточно 
оставить справа пустую колонку, шириной в одно знакоместо 


(рис. 156). 
Избежав одной неприят- 
| ности, возникающей при пе- 
| ремещении спрайта скрол- 
лингом (смещение фона), 
мы получили другую — 
спрайт, перемещаемый с по- 
мощью — оператора .РТВЕ, 
затирает фон. 
Справиться с проблемой 


о сотазизв аи чкльсалыль ку дин тостов 


1 знакоместо | | сохранения фона при пере- 
мещении спрайтов можно, 
а) 6) только умело пользуясь опе- 


раторами наложения спрай- 
та на экран по различным 
принципам. 


Рис. 15. Подготовка спрайта к 
перемещению. 


Наложение спрайтов 


Газег Ваз1с позволяет помещать спрайт на экран не только при- 
митивным способом, затирая фон (оператор .РТВИ), но и по-разно- 
му совмещая картинку спрайта и экранное изображение. Прин- 
ципов совмещения (наложения) три, и обозначаются они по на- 


званиям логических операций: ОК, АМР и ХОБ. Реализуют эти 
принципы соответственно три оператора: 


.РТОЕ — объединяет картинки (остаются включенными пиксели, 
которые были включены либо на экране, либо в спрайте); 


-РТМО — оставляет только совпавшее изображение: пиксели, вклю- 
ченные одновременно и на экране, и в спрайте; 


-РТХЕ — стирает совпавшее изображение, оставляя все остальное: 
пиксели, включенные либо только на экране, либо только 
в спрайте. 
Проиллюстрируем действие этих операторов программой, вы- 
полняющей наложение спрайта номер 5 на спрайт номер 1: 
10 .РО\МУЕЕ: 5 РМ=1 
20 РОВ п=0 ТО 32 $ТЕР 8:.СОЁ=п:.РТВЬ: МЕХТ п 
30 РАЦЗЕ 50:.5РМ=5. 
40 .СОЕ=0:.РТВЕ 
50 .СОЁ=8:.РТОВ 
60 .СОЁ=16:.РТХВ 
70 .СОЁ=24:.РТМО 
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Приведенный рисунок 


(рис. 16). поясняет принципы 

наложения спрайтов. 
Кроме операторов нало- 

жения целых спрайтов в 

Газег Вазс имеются ин- 


струкции, осуществляющие те 
же действия с окнами спрай- ХО АМО [\.. 
тов: „Р\МОВ, „РУМО и „Р\ХВ. 
Действуют они аналогичным 
образом, но предварительно 
должны быть определены 
переменные .5К\\И, .5СЁ, „НСТ и 
„СЕМ, задающие положение и размеры окна в спрайте. Присваивая 
значения этим переменным, нужно следить, чтобы окно не вы- 
ходило за пределы спрайта, иначе команда не пройдет, хотя сооб- 
щения об ошибке и не появится. Если добавить в предыдущий 
пример строку 
35 .5Ю\УИ=0: .5СЕ=0:.НСТ=2:.ЦЕМ=2 


и в строках с 40-й по 70-ю заменить буквы РТ на Р\/, то по- 
лучившаяся программа проиллюстрирует действие операторов на- 
ложения окна спрайта на экран. 


Рис. 16. Наложение спрайтов по 
различным принципам. 


Перемещение спрайтов (3-й способ} 


После ознакомления с принципами наложения изображения 
можно рассмотреть и способы перемещения спрайтов с сохра- 
нением фона. 

Например, можно предложить слелдующую последовательность 
действий: 


1. поместить спрайт на экран оператором .РТХК. Фон при этом 
сохранится, но сам спрайт немного пострадает: в точках пере- 
сечения фона и спрайта образуются «прорехи» (во многих 
случаях это допустимо); 


2.. через требуемое время стереть спрайт, вторично выполнив 
оператор „.РТХК с теми же значениями -графических перемен- 
ных. Фон полностью восстановится; 


3. изменить переменные .КО\У\/ и .СОЁ и поместить спрайт в новое 
место опять же оператором „РТХКЮ. И так далее. 


Можно, конечно, проверить работу приведенного алгоритма, но, 
вообще-то, в этом нет необходимости, так как он реализован в 
специально предназначенном для перемещения спрайтов операто- 
ре .МОУ\УЕ. 


.МОУЕ работает слелдующим образом: накладывает по принципу 
ХОК спрайт с номером, заданным графической переменной .$Р2, 
на экран, соответственно, переменным .КО\М/ и .СОЁ. Потом, 
изменив значения переменных .КО\У/ и „.СОЁ на величины сме- 
щения, заданные соответственно переменными .НСТ и .1ЕМ, накла- 
дывает по тому же принципу ХОК на новое место спрайт с номе- 
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ром .5Р1. В завершение переменные .5Р1 и .„.5Р2 обмениваются 
значениями. = == 
Аля. перемещения  спрайта с 
помощью оператора .МОУЕ перемен- 
ным .5Р1Ти .3Р2 присваивают одинако- 
вые значения, то есть задают один 
спрайт*. Затем ‘помещают оператором 
.РТХК спрайт с этим номером в исход- 
ную точку, заданную .КО\У/ и .СОЕ. На 
первом шаге выполнения .„МОУЕ 
спрайт будет стерт, на втором — поме- 
щен на другое место. Далее можно 
еще и еше раз выполнять .МОУЕ без 
каких-либо дополнительных действий, 
если, конечно, не потребуется изме- 
нить скорость и направление движе- 
ния спрайта. Делается это присвое- 
нием переменным „НСТ и „1ЕМ других 
значений. Приведем пример: 


10 .5Р1=5:.5Р2=5: КЕМ Перемещать будем спрайт с номером 5 

20 .КО\У/=0:.СОЁ=0:.5РМ=5:.РТХВЕ: КЕМ Поместим его на экран 

30 .НСТ=1:.1ЕМ=1: ВЕЕМ Зададим смещение 

40 РОК п=1 ТО 15:.МОУЕ: РАЦЪЗЕ 4: МЕХТ п: РЕМ Сдвинем на 15 
знакомест по диагонали 


Копирование изображения с экрана в спрайт 


В Газег Ваз1с имеется группа. операторов, которые копируют 
изображение с экрана в спрайт (или окно спрайта), то есть номе- 
щают изображение в спрайт-файл, находящийся в памяти. Самый 
употребительный из них — „СТВ, он переносит изображение из 
окна экрана в спрайт с номером, заданным переменной .„5РМ. 
Остальные операторы этой групны описаны в Приложении 1. 


Перемещение спрайтов (4-й способ) 


Используя оператор копирования изображения из окна экрана 
в память .ОТВЁЕ, можно реализовать еще один способ перемещения 
спрайтов с сохранением фона. Суть его проста: окно экрана, в 
которое будет помещен спрайт, сохраняется оператором „.СТВЁ в 
буфере (пустом спрайте), после`этого предназначенный для пере- 
мещения спрайт выводится на экран оператором „РТОЮ, а через 
некоторое время (в зависимости от требуемой скорости переме- 
щения) изображение из буфера копируется обратно на экран, 
восстанавливая фон. Далее в буфер помещается изображение из 


* РА = 
Можно использовать и разные спраиты, получая, например, «чпрыгающиий» 


спрайт, но это уже высший пилотаж. 
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окна, соответствующего новому 
положению спрайта, спрайт вы- 
водится в это окно и т. д. Пустой 
спрайт-буфер, по размерам равный 
перемещаемому спрайту, создается 
при формировании спрайт-файла. 

Поскольку для примеров мы. 
пользуемся готовым спрайт-фай- 
лом $РКПЕ?В, то не будем фор- 
мировать пустой спрайт, а «пожерт- 
вуем» спрайтом .5РМ=2 — использу- 
ем его в качестве буфера. Размеры 
его равны размерам —спрайта 
.5РМ=1. Следующая программа пе- 
ремещает спрайт .5РМ=1 слева на- 
право на 10 знакомест с сохране- 
нием фона: 


10 .РО\М/=0: ВЕМ=4:.НСТ=2: ВЕМ Окно в размер спрайта номер ! 
20 .СОЁ=5:.5РМ=3:.РТВЕ: КЕМ Фоном служит спрайт номер 3 

30 РОК М=0 ТО 10:.СОЁ=М 

40 .5РМ=?:.СТВЕ: КЕМ Копирование окна с фоном в буфер 

50 .$РМ=1:.РТОЮ: КЕМ Вывод спрайта на экран: 

60 РАЦЪЗЕ 10 

70 .5ЗРМ=2:.РТВЁ: КЕМ Восстановление окна 

80 МЕХТ М: КЕМ Следующий шаг 


Преобразование спрайтов 


Операторы преобразования спрайтов по своему действию 
аналогичны инструкциям преобразования окна экрана (см. 
стр. 160), но производят изменения не на экране, а в памяти. 
Для того чтобы увидеть действие этих операторов, нужно после 
их выполнения поместить. измененный спрайт на экран, 
например, оператором .„РТВЕ. 

Операторы этой группы можно распознать по букве М на конце 
ключевого слова (от англ. Метогу — память). 

Не извлекая спрайт из памяти, его можно инвертировать 
(УМ). зеркально отображать относительно вертикальной оси 
симметрии (.М®М), а также зеркально отображать атрибуты 
спрайта (.МАВМ). Предварительно необходимо задать номер пре- 
образуемого спрайта — присвоить соответствующее значение 
переменной .5$РМ 

Во всех знакоместах спрайта можно установить текущие атрибу- 
ты (.5ЕТМ). А можно и полностью очистить спрайт оператором .СЕ$М. 

Операторы. производящие скроллинг спрайтов в памяти, ана- 
логичны операторам скроллинга окон экрана. Например, .МВ1М 
производит циклический скроллинг спрайта в памяти вправо на 1 
пиксель. Нужно только задать номер спрайта в переменной .5РМ. 
Операторы скроллинга спрайтов можно найти в Приложении 1. 
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Аля работы со спрайтами в памяти существуют и операторы, 
которым нет «экранных» аналогов. Например; можно повернуть 
спрайт на 90°. Оператор .5РММ копирует спрайт с номером .$Р1 в 
спрайт .$Р2* с поворотом изображения на 90° по часовой стрелке. 
Предварительно второй спрайт (.5Р2) должен быть очищен. Особо 
следует обратить внимание на то, чтобы высота второго снрайта 
равнялась ширине первого, а ширина, соответственно, — высоте. 

Оператор .О$РМ позволяет прямо в процессе работы программы 
получить в спрайте с номером .5$Р1 увеличенное в четыре раза 
изображение спрайта .5Р2. Естественно, что для успешного выпол- 
нения этой операции высота и ширина спрайта .5Р1 должны быть 
в два раза больше, чем у исходного .5Р2. Спрайт .5Р1 предваритель- 
но должен быть очищен. 


Наложения «спрайт—окно спрайта» 


Операторы взаимодействия спрайта с окном другого спрайта 
(напомним, что эти преобразования происходят в памяти) во мно- 
гом похожи на соответствующие инструкции для окон экрана. 
Ключевые слова операторов этой группы начинаются с букв СМ и 
РМ (от англ. Се! Метогуи РШЁ Метогу). Например, операторы „СМВЕ, 
.СМОЮ, .СМХВ и .СММЮО переносят или накладывают по различным 
принципам спрайты на окна в других спрайтах, а „РМВЕ .РМОВ, 
„РМХЕ-“ и „РММО, наоборот, окно спрайта переносят в «целый» 
спрайт. Номер «целого» спрайта заносится в переменную .5$Р1, 
номер спрайта с окном — в .$5Р2. Размеры окна в спрайте .5Р2 не 
задаются: подразумевается, что они равны размерам спрайта .5Р1, 
а координаты окна внутри спрайта .5ЗР2 определяются перемен- 
ными .5СЁ и .5Ю\У/. Необходимо следить, чтобы окно в спрайте не 
«вылезло» за его: край, иначе появится сообщение Рагатефег еггог. 

Действие операторов этой группы не затрагивает атрибуты. Для 
перемещения атрибутов в этом случае используются операторы 
.СМАТ и „РМАТ. 


Следует заметить, что при работе инструкций наложения 
«спрайт—окно спрайта» возникает побочный эффект: после вы- 
полнения любой из них запрещается перенос атрибутов для опе- 
раций типа «спрайт—экран» и «экран—спрайт» (то есть авто- 
матически выполняется .АТОР). Поэтому каждый раз нужно вновь 
разрешать перенос атрибутов оператором .АТОМ. 


В данном случае изображение перемещается из спрайта .5Р1 в спрайт .5Р2. Но не 
для всех групп операторов это так. Чтобы предупредить возможную путаницу при 
использовании переменных „5Р1Т и .„5Р2, в Приложении 2 дана поясняющая 
таблица (табл. 13). 


Есть одна особенность в работе оператора .-РМХЕ, происходящая, видимо, из-за 
ошибки в Газег Ваз1с. Послеего использования в программе оператор .РТОВ пер- 
вый раз интерпретируется как .РТХЮ. Обойти эту ошибку можно, например, дваж- 
ды выполнив .РТОЮ. 


жх 
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Перемещение спрайтов (5-й способ} 


Развивая далее принцип перемещения спрайтов с сохранением 
фона в буфере (см. стр. 166), можно реализовать движение спрайта 
с шагом меньше знакоместа. Эта задача решгается с помощью скрол- 
линга спрайта в памяти (шаг скроллинга может быть равным 1, 4 и 
8 пикселей} с выводом спрайта на каждом шаге в одно и то же окно 
экрана. При создании спрайта следует предусмотреть пространство 
для скроллинга — ободок шириной 8 пикселей (см. рис. 15). 


Аля примера рассмотрим, как можно реализовать перемещение 
спрайта с номером .5РМ=1 слева направо на 10 знакомест с шагом 
в 1 пиксель и сохранением фона*: 


10 .КО\/=0:..ЕМ=4:.НСТ=2: КЕМ Окно в размер спрайта номер 1 
20 .СОЁ=5:.5РМ=3:.РТВЕ: КЕМ Фоном служит спрайт номер 3 
30 РОК п=0 ТО 10:.СОЁ=п 

40 .5РМ=2:.СТВЕ: КЕМ Помещение окна с фоном в буфер 

50 .ЗРМ=1:.РТОЮ: КЕМ Вывод спрайта на экран 

52 РОК т=1 ТО 7:.М/К1М: КЕМ Скроллинг спрайта в памяти 
54 .5РМ=?:.РТВЕ: КЕМ Восстановление окна из буфера 

55 .5РМ=1:.РТОК: КЕМ Печать сдвинутого спрайта 

56 РАЦФЗЕ 10: МЕХТ п 

58 .УМИЮ1М:.М/Е8М: КЕМ Восстановление спрайта 

60: РАЦЗЕ 10 

70 .5РМ=2:.РТВЁ: РЕМ Восстановление окна из буфера 

80 МЕХТ п 


Скроллинг пейзажа 


Перемещение на заднем плане какого-нибудь фонового рисун- 
ка (пейзажа) настолько часто встречается в играх, что есть смысл 
рассмотреть отдельно способы реализации этого приема. Проще 
всего организовать скроллинг протяженного пейзажа, прокручи- 
вая спрайт длиной в несколько экранов”**. 

Если шаг скроллинга — знакоместо (или несколько знакомест), 
то особых проблем не возникает. Такой вид скроллинга позволяет 
прокручивать изображение с атрибутами, хотя и не обеспечивает 
плавности движения. Для примера рассмотрим перемещение пей- 
зажа высотой 3 строки и длиной 96 знакомест. Допустим, что 
спрайт с изображением пейзажа имеет номер 1 (отметим, что в 
спрайт-файле ЭРЕГТЕ?2 В такой спрайт отсутствует): 


10 .5Ю\У/=0:.НСТ=3:.КО\У/=10:.5РМ=1: КЕМ Начальные параметры 
20 .СОЁ=0:.РТВЕ: ВЕМ Вывод первых 32 столбцов пейзажа 


Правда, пример дает лишь принципиальное представление о данном способе, 
поскольку у выбранного спрайта, как и у всех других в спрайт-файле ЗРЕКТЕЗВ, 
отсутствует ободок. 


** Отом, как его создать, см. в разделе «Создание спрайтов» на стр. 185. 
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30 РОК п=32 ТО 96 
40 .СО1=0: 1ЕМ=З2:.5.8:.АТЕУ: ВЕМ Скроллинг окна влево 
-50 .СОЁ=31:.ВЕМ=1:.5СЬ=п: .РУМВЬЕ: РЕМ Вывод п-го столбца спрайта 
в 31-й столбец экрана 
60 МЕХТ п 


Чтобы обеспечить перемещение пейзажа с шагом меньше зна- 
коместа, придется применить небольшую хитрость. Нужно сделать 
31-й столбец невидимым: задать в нем одинаковый цвет фона 
(РАРЕК) и тона (МК). Добавим к предыдущему примеру 15-ю строку 
и изменим 40-ю и 50-ю: 


15 .СОЁ=31:.1ЕМ=1: РАРЕК 7: 1МК 7:.5ЕТУ: КЕМ Обесцвечивание 
31-го столбца 

40 РОК т=1 ТО 8: „.СОЁ=0:.1ЕМ=32:.$.1У: МЕХТ т: РЕМ 
Скроллинг с шагом в 1 пиксель 

50 .СОЁ=31: ЦЕМЕ: .5СЬЕп: .АТОЕ: .РУМВЕ: АТОМ: ВЕМ Вывод п-го 
столбца спрайта в 31-й столбец экрана 


Если скроллинг идет вправо, то «скрытое» окно организуется у 
левого края экрана. 


Изменение размеров области спрайт-файла 


Для того чтобы было понятно дальнейшее изложение, скажем 
несколько слов о структуре спрайт-файла и его расположении в 
памяти (см. также распределение памяти интерпретатора 
Газет Ваз1с: табл. 10 на стр. 178). Интерпретатор Газег Ва$1с опре- 
деляет, в каком месте находится спрайт-файл, по содержимому 
специальных ячеек памяти. Ячейки 62464/65 содержат адрес 
нижней границы спрайт-файла (в дальнейшем мы будем называть 
его $ТАКТ), а 62466/67 — адрес верхней (ЕМО). АВАВВАТЕЛЬНО, 
адреса границ спрайт-файла можно определить так: 


СЕТ $5ТАКТ=РЕЕК 62464+256*РЕЕК 62465: РАМТ $ТАКТ 
ЕТ ЕМО=РЕЕК 62466+256*РЕЕК 62467: РЮМТ ЕМО 


Верхняя граница (ЕМО) обычно выбирается равной 56575 (и 
лучше всего ее не менять). В ячейке с адресом ЕМО всегда должен 
быть записан ноль — метка конца спрайт-файла. В противном 
случае могут возникнуть неприятные сюрпризы. Нижняя граница 
(ТАКТ) — плавающая, она зависит от размера спрайт-файла. 


Объем памяти (в байтах}, занимаемый одним спрайтом, рас- 
считывается по формуле: 


9х.НСТх.ГЕМ+5 


— где .НСТ и 1ЕМ — высота и ширина спрайта в знакоместах. 
Формат хранения спрайта в спрайт-файле приведен в табл. 8 
(адреса увеличиваются снизу вверх}. 
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Таблица 8. Формат хранения спрайта в памяти. 


` данные об атрибутах спрайта 


данные о состоянии пикселей спрайта 


нетх „РЕМ байт 
8х.НСТх.ЬЕМ байт 


Газег Ваз1с позволяет в процессе работы программы расширять 
область спрайт-файла: резервировать место для нового спрайта и, 
наоборот, «выбрасывать» спрайты из этой области. 

Чтобы расширить область спрайт-файла для нового спрайта, 
нужно после задания номера спрайта, его высоты и ширины 
(переменные .5РМ, НОТ и „ГЕМ) выполнить один из операторов: 
15РЮ или .„5РВТ. Они отличаются друг от друга тем, что 1$5Р® 
расширяет область спрайт-файла за счет понижения его нижней 
границы, а .5РЮТ — повышения верхней. Обратим внимание на то, 
что этими операторами только резервируется место под новый 
спрайт, а само изображение нужно записывать в спрайт-файл с 
помощью оператора .СТВИ. 

При создании спрайта с уже существующим номером с по- 
мощью оператора .5РЕТ старый спрайт уничтожается и замещается 
новым. Оператор же .15Р® в этом случае просто не выполняется. 
Поэтому перед использованием .5РЮ нужно убедиться в отсутствии 
спрайта с заданным номером (о том, как это сделать, будет сказано 
позже). Если же спрайт существует, то его следует предварительно 
уничтожить оператором .О$РВ или .\5$РВ (о них будет рассказано 
в этом разделе). 

Расширение области спрайт-файла требует особой осторожнос- 
ти. Необходимо следить, чтобы нижняя граница спрайт-файла 
(ТАКТ) не пересекла КАМТОР и не испортила бейсик-программу, а 
верхняя (ЕМО} не затерла коды интерпретатора, начинающиеся с ад- 
реса 56576. Напомним, что адрес КАМТОР можно определить так: 


ГЕТ КАМТОР=РЕЕК 23730+256+РЕЕК 23731: РАМТ КАМТОР 


Приведем пример создания спрайта в спрайт-файле: 


10 .5РМ=240: .РТВЬ: КЕМ Такого спрайта еще нет 

20 СЬЕАК 50289: КЕМ Опустим КАМТОР 

30 .НСТ=1:.6ЕМ=1:.$РМ=240: .15РЮ: КЕМ Создадим его 
40 .5РМ=240:.РТВЬ: КЕМ И выведем на экран 


Нри выполнении 10-й строки компьютер выдаст сообщение об 
ошибке Рагатефег еггог (ошибочный параметр) и будет прав: спрай- 
та с номером 240 в спрайт-файле $РЕПЕЗВ нет. Выполнив СО ТО 20, 
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убедимся, что все в порядке — спрайт создан, хотя информации В 
нем нет (точнее, она случайная). 


Чтобы удалить спрайт номер .5$РМ из области спрайт-файла, 
существуют операторы .О$РЮ и :\М\/$РЮ. Олин, соответственно, сдви- 
гает нижнюю границу спрайт-файла, другой — верхнюю. 


Иногда может возникнуть необходимость переместить спрайт- 
файл в памяти, к примеру, чтобы зарезервировать пространство 
между верхней границей области спрайтов и началом интерпрета- 
тора под какие-либо подпрограммы в кодах. Аля этих целей служит 
оператор „ВЕСТ. Перед его выполнением нужно присвоить зна- 
чение специальной переменной „МЁМ, задлающей смещение 
спрайт-файла (в байтах). Теоретически эта переменная может 
принимать значения из интервала от 0 ло 65535. Реально же 
нужно следить, чтобы перемещаемый спрайт-файл не попал в 
`«жизненно важные» области памяти. Если спрайты нужно пере- 
местить вверх, то необходимо .МЕМ приравнять величине сме- 
щения. Если вниз, то .МЕМ должна равняться 65536—‹смещение>. 


Вспомогательные графические операторы и функции 


Операторы и функции данной группы сами не выполняют 
преобразований графических объектов, но имеют к этому непос- 
редственное отношение. 

Оператор .АОЗУ «обрезает» переменные „НСТ и .1ЕМ так, чтобы 
окно, заданное значениями .КО\М/, .СОЁ, .НСТи „.1ЕМ, не выходило за 
границы экрана. Оператор .АО/У\У выполняет действия, эквивален- 
тные работе слелдующей программки: 


10 ЕТ ВЕНСТ: ВЕТ | ЕМ: ВЕТ г=?®О\МУИ: ВЕТ се=?СОЁ 
20 Е г+| >24 ТНЕМ .НСТ=24-г 
30 Е с+1>32 ТНЕМ ШЕМ=32—| 


Оператор .АБ)}М изменяет значения графических переменных 
„НСТ, ЕЕМ, .5СЁ и .5К\У/ таким образом, чтобы спрайт (или окно 
спрайта) при переносе на экран не выходил за его пределы. К 
примеру, если выполнить строку | 


10 .5РМ=1:.КО\МИ=1:.СОЁ=З1:.АБ]М 


— то переменная 1ЕМ примет значение 1, так как на экране может 
поместиться только одна колонка спрайта. 


Функция 1$СУ проверяет знакоместо экрана, заданное перемен- 
ными .КО\/ и .СОЕ, на наличие изображения. Если в тестируемом 
знакоместе есть включенные пиксели, то после выполнения прог- 
раммной строки 


ГЕТ $=$СУ 


переменной $ присваивается ненулевое значение. Если знакоме- 
сто пусто, функция возвращает ноль. 


Функция 1$СМ таким же образом проверяет спрайт с номером 
.ЭРМ. Понятно, что любой непустой (содержащий изображение) 
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‚сйрайт имеет включенные пиксели и функция возвратит ненуле- 
вое значение, если же спрайт пустой — ноль. 


С помощью функции З1$Т можно выяснить некоторые парамет- 
ры спрайта. Аля этого задается номер проверяемого спрайта (.5РМ) 
и выполняется строка 


ЕТ УМ=ЗТ 


Если спрайт с указанным номером существует, то переменной 
\У/ присваивается значение адреса его расположения в памяти, а 
графическим переменным „НСТ и 1ЕМ — значения размеров 
спрайта. При отсутствии тестируемого спрайта переменной У! 
присваивается нулевое значение, а в переменных „НСТ и „ЁЕМ 
может оказаться все что угодно. 


Определение столкновений спрайтов 


Одна из часто встречающихся задач при создании 
динамических игр — это определение факта столкновения спрай- 
тов. В Газег Ваз1с для этого используются уже описанные функции 
?$СУ и ?$СМ. 


Сначала рассмотрим наиболее простую задачу: как определить 
столкновение спрайта не с конкретным объектом, а с любой кар- 
тинкой-препятствием на экране: 


10 РЕИМТ АТ 10,20; "5ТОР": КЕМ Создание препятствия на экране 
100 .КО\М/=10:.СОЁ=0:.5РМ=1:.РТВЕ: КЕМ Вывод на экран спрайта 
110 РОК п=1 ТО 25:.НСТ=0: .6ЕМ=1:.$Р1=1:.$Р2=1 
120 .МОУЕ: ©О $ЦВ 130: МЕХТ п: РЕМ Перемещение спрайта 
125 $ТОР 
130 ЕТ с=СО6ь: КЕМ Сохранение значения переменной „.СОЁ 
140 .СОЁ=се+4: (ЕТ сгаз\=$СУ: РЕМ Проверка знакоместа перед 

спрайтом на наличие включенных пикселей 
150 Е сгазр=0 ТНЕМ .СОЁ=е: ВЕТОЮМ: КЕМ Если препятствие не 
обнаружено, то .СОЕ присваивается исходное значение 
1000 ВЕЕР 1,1: КЕМ Столкновение 


Сложнее определить столкновение спрайта с конкретным объ- 
ектом. В следующем примере в качестве такого объекта используется 
спрайт .5РМ=2. К программе, фиксирующей в предыдущем примере 
факт столкновения, добавлены строки 200...240. В них происходит 
сравнение объекта, с которым произошло столкновение, и спрайта 
.5РМ=2. Спрайт .5РМ=5 используется в качестве буфера. Его размеры 
должны быть равны размерам спрайта .5РМ=2. 


200 .5РМ=5: ЕТ Т=Т5Т:.СУУВЕ: КЕМ Копирование препятствия в бу- 
фер 

210 .5$Р1=5:.5Р2=2 

220 .РМХВ: КЕМ Наложение изображения заданного объекта на 
содержимое буфера по принципу ХОЮ 

230 ЕТ сгаз|=?5СМ: КЕМ Проверка буфера на наличие включен- 
ных пикселей 
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240 Е сгаз\<>0 ТНЕМ .СО=с: ЮЕТОЮМ: ЮЕМ Если включенных 
пикселей нет (сга5=0), значит заданный объект и препятствие 
совпадают 

1000 ВЕЕР 1,1: РЕМ Столкновение с заданным объектом 


В этом примере факт столкновения зафиксирован не будет, 
поскольку препятствие на экране не совпадает со спрайтом .$РМ=2. 
Но если теперь заменить 10-ю строку на 


10 .КО\М/=10:.СОЁ=20:.5РМ=2:.РТВЬ 
— то столкновение произойдет. 


В приведенных примерах предполагалось, что столкновение 
спрайтов происходит на чистом экране. Аля решения усложнен- 
ной задачи — определения столкновения спрайтов на неком фоне, 
перед проверкой совпадения спрайтов необходимо содержимое 
буфера очистить от фона, наложив на буфер спрайт .5Р2=2 по 
принципу АМРО (например, оператором .РММО), а после этого уже 
выполнить оператор .РМХКЮ в строке 220. 


Сервисные операторы и функции 


Инструкции, описанные в этом разделе, расширяют возмож- 
ности зреснит-Бейсика и не имеют никакого отношения к преоб- 
разованию графических объектов. 

Функция ЗКВЕ используется для контроля нажатия конкретной 
клавиши. Как и все другие функции Газег Ваз$1с, она может ис- 
пользоваться только в строке типа 


ГЕТ Б=ЖВЕ 


ЖВЕ возвращает ненулевое значение, если в момент выпол- 
нения оператора "ЕТ была нажата проверяемая клавиита. 

Клавиша, на нажатие которой будет реагировать функция, зада- 
ется переменными .КО\М/ и .СОЕ в соответствии с табл. 9. 


Таблица 9. Задание клавиши для опроса функцией ЗКВРЕ. 
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Приведем пример программки, ожидающей нажатия клавиши К: 


10 .КО\М/=7:.СОЁ=З: КЕМ Указываем клавишу 
20 "ЕТ $=ЖВЕ: Е $=0 ТНЕМ СО ТО 20: КЕМ Цикл ожидания 
30 ВЕЕР 1,1: РЕМ Дождались 


Оператор „.РОКЕ аааг,х является 16-битовой версией оператора 
Зреснат-Бейсика РОКЕ*: он записывает двухбайтовое число х в 
последовательно расположенные ячейки памяти с адресами аааг и 
аа4г+1, то есть эквивалентен инструкциям 


РОКЕ аадг/МТ(х/256): РОКЕ(аааг+1),х—ИЧТ(х/256) 


Нетрудно догадаться, что функция ЗРЕК — это 16-битовый ана- 
лог функции РЕЕК стандартного Бейсика. Она возвращает зна- 
чение двухбайтового числа, записанного в двух ячейках памяти: 
адрес первой равен аргументу функции, адрес второй на единицу 
больше. Например, оператор 


СЕТ х=?РЕК 23606 
эквивалентен 


СЕТ х=РЕЕК 23606+256*РЕЕК 23607 


Газет Ваз1с позволяет осуществлять отладку (трассировку)} прог- 
рамм: оператор .ТВОМ включает пошаговое выполнение програм- 
мы**. Во время трассировки на экран выводится текст выполняе- 
мой в данный момент строки. Эта особенность резко сужает сферу 
применения оператора „.ТКОМ, так как после выполнения не- 
скольких операторов весь экран заполнится строчками листинга 
программы. Отключается трассировка с помощью оператора „ТВОЕ. 
Оба описываемых оператора могут находиться только в тексте 
программы, ввод их с клавиатуры не вызовет никакого действия. 


Оператор .ВМОМ М, М, $ перенумеровывает строки программы: 
строке М присваивается номер М, слелдующей строке М+5 и т. д. (по 
умолчанию параметр $ принимается равным 10). Так, например, 
. МОМ 1, 20, 15 перенумерует все строки программы с шагом 15, 
первой строке будет присвоен номер 20. При этом соответству- 
ющим образом заменяются параметры операторов СО ТО, СО $ЦВ и 
РЕЗТОКЕ, но только в том случае, если они представляют собой 
численные значения, а не выражения. Если использовать 
.ЕМУМ без параметров, то у первой строки номер не меняется, а 
последующие перенумеруются с шагом 10. 


Оператор „ВЕМК для уменьшения объема памяти, занимаемой 
программой, удаляет из нее комментарии (все операторы КЕМ и 
следующие за ними тексты). Необходимо быть осторожным при 


Как видно, формат .РОКЕ не стандартен для Газег Ва$1с — его параметры переда- 
ются не через графические переменные, а непосредственно вслед за ключевым 
словом. 

Пошаговый режим означает, что после выполнения каждого оператора ожидается 
нажатие любой клавиши для продолжения трассировки. 


*х 
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использовании этого оператора в программах, обращающихся к 
АИСКОвВОоДу. Иначе вместо строчки 


РАМООММЕ Ч5$К 15619: КЕМ: ГОАО "МАМЕ" СОГЕ 
можно получить 
КАМООМШЕ (5$К 15619 


Процедуры 


Газег Ва$1с не только расширяет графические возможности 
стандартного Зреснит-Бейсика, но и дополняет его новыми сред- 
ствами структурного программирования: инструментом процедур. 


Процедура — это, по сути дела, подпрограмма, имеющая свои 
собственные внутренние переменные, называемые локальными. 
Значения локальных переменных в процессе выполнения проце- 
дуры могут меняться, но при выходе из процедуры им возвраща- 
ются значения, которые они имели в основной программе. А 
главное, посредством локальных переменных в процедуру переда- 
ются необходимые параметры. Таким образом, процедура, в от- 
личие от подпрограммы, позволяет создавать независимые струк- 
турные блоки, которые можно использовать в других программах, 
не боясь «конфликта переменных». 

Процедуры отличаются от подпрограмм также способом их оп- 
ределения и вызова. В Газ$ег Ваз1с каждой процедуре присваивает- 
ся имя: буква латинского алфавита со знаком $ или без него (всего 
возможно 52 имени). Определяются процедуры в любом месте 
программы оператором РЕЁЕМ с именем процедуры (набирается 
ОЕР ЕМ способом, принятым для Зреснаит-Бейсика, клавишами 
С$5/55+5$/1)*. А чтобы различить процедуру и функцию, определя- 
емую пользователем, после имени процедуры ставится знак #. 
Например: ОЕЁ РЕМ А# или ОЕЁЕ РМ 4$. 

Блок программы, оформляемый как процедура, начинается с 
так называемого заголовка процедуры, который может выглядеть, 
например, так: 


100 РЕЕ ЕМ А#(х,у,2,а$,6$) 


В заголовке после имени процедуры в скобках** приводится 
перечень формальных параметров, то есть числовых и строковых 
переменных, с которыми надлежит работать процедуре. Формаль- 
ными параметрами не могут быть массивы. 

В процедуре могут использоваться и переменные, не указанные 
в списке. Такие переменные называются глобальными. При выходе 
из процедуры им не будет возвращено значение, которое они 
имели при входе в нее. 


Отметим, что выполнение процедур, как и функций, заданных пользователем, 
происходиттем быстрее, чем ближе к началу программы расположено их опреде- 
ление. 

Скобки в описании процедуры должны стоять даже при отсутствии передаваемых 
параметров. 


** 


176 


ИНТЕРПРЕТАТОР 


Текст процедуры должен оканчиваться оператором „.ЮКЕТМ (ана- 
лог КЕТОЮМ). 

Процедуры вызываются оператором „.РКОСЕМ с указанием вслед 
за ним имени процедуры и, в скобках, списка фактических пара- 
метров, то есть значений всех переменных, упомянутых в заголов- 
ке процедуры. Набирается этот оператор необычным способом: 
первая его часть (.РКОС) — по буквам, а ЕМ — как в 5ресииат- 
Бейсике (С$/$$+$$/2). 

Описание процедуры может включать в себя и вызов другой 
процедуры, но при этом надо помнить, что значения локальных 
переменных для внутреннего вызова распространяются и на 
внешний вызов, то есть эти переменные «не до конца локальных». 


Рассмотрим несколько примеров. Вот так будет выглядеть опре- 
деление процедуры, выводящей на экран слово НЕЁР!: 


100 ОЕЕ ЕМ а$#() 


200 РЕМТ "НЕЁР!" 
300 .КЕТМ 


Вызывается она просто: 
50 .РЕОСЕМ а$#() 


Можно сделать так, чтобы процедура выводила любой текст в 
заданном месте: 


100 РЕР РЕМ а$#(х,у,Б$) 
200 РАМТ АТ х,у;5$ 
300 .РЕТМ 


После определения этой процедуры для печати, например, сло- 
ва ГАЗЕК с 8-й позиции 5-й строки, в программу достаточно 
вписать: 


50 .РЮОСЕМ а$#(5,8,"ГАЗЕВ") 


Загрузка и запись программ 


Программы, написанные в интерпретаторе Газег Ваз1с, могут 
быть загружены и записаны как в непосредственном режиме, так 
и из программы. Причем, если запись производилась из програм- 
мы, то и загрузка должна происходить из программы. И, наоборот, 
программы, записанные в непосредственном режиме, могут быть 
загружены только с клавиатуры. 


Запись программ без автостарта осуществляется операторами: 


ЗА\УЕ "МАМЕ" (для ленты), 
КАМООМИЕ Ц5$К 15619: КЕМ: $АУ\УЕ "МАМЕ" (лля диска). 


Запись программы с автостартом со строки М осуществляется 
операторами: 


5АУЕ "МАМЕ" ЫМЕ М (для ленты), 
КАМООМИХЕ Ц5$К 15619: КЕМ: $ЗАУЕ "МАМЕ" ИМЕ М (лля диска). 
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При запуске записанная таким образом программа должна до 
встречи какого-либо оператора Газег Ваз1с выполнять один из пе- 
речисленных операторов: 


РУМ, СО ТО или СО $3В (для ленты) 
КАМРОМХЕ Ц5$Р 58841 и КОМ, СО ТО или СО $3В (для дисковода) 


Ниже приведен пример загрузчика, который подгружает интер- 
претатор Га$ег Ваз1с, программу и спрайт-файл: 

10 СЕЕАВ $ТАРТ-1: КЕМ Установка КАМТОР на 1 байт меньше, 
чем нижняя граница спрайт-файла 

20 ГОАО "ГАЗОВ" СОПЕ: КЕМ Загрузка кодов интерпретатора 

30 ГОАО "ГАЗЕОВ]” СОБЕ 

40 КАМООМИШЕ (5$К 62464 

50 ГОАБ "СКАРН” СОРЕ 

60 КАМОРОМИШЕ Ч5$К 58841: КЕМ Запуск интерпретатора 

70 ГОАО "имя” СОБЕ $ТАКТ: КЕМ Загрузка спрайт-файла 

80 СО ТО 90: КЕМ Выполнение оператора перехода (необходимо 
перед первой командой [азег Вах) 

90 .РОКЕ 62464, 5ТАЮТ:.РОКЕ 62466,56575: КЕМ Заполнение ячеек, 
хранящих адреса 5$ТАКТ и ЕМО 

100 РОКЕ 56575,0 


Если в программе не используется спрайт-файл, то выбрасыва- 
ются строки 70 и 90, а 10-я заменяется на 


10 СТЕАК 56574 


В заключение описания интерпретатора Газег Ваз1с представим 
распределение памяти при его использовании (табл. 10). 


Таблица 10. Распределение памяти при работе с интерпретатором. 


Р_КАМТ ( 23732} —ИЫ—=—=Ы=—=—ИЫЫ——Ц—_о—о—__ Ц 65535 
Интерпретатор Газег Вазю 

ЕКО. (62466767) —————————ы=——ы———_——_—_—_—_—-.-..56575 

Область спрайт-файла 

ЗТАВТ (62466/67) 


КАМТОР=$ТАКТ-1 (23730) 


Е_НМЕ (23641) 
Переменные Бейсика 
УАБ$5 (23627) 
Бейсик-программа 
РКОС (23635) 
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СОЗДАНИЕ СПРАЙТОВ 


В этом разделе мы расскажем о двух программах — генераторах 
спрайтов: УргЁе Сепегаюг (ЗРТСЕМ) из фирменного пакета 
Газег Ваз1с и $рг{ег*, написанной автором этой главы. Обе прог- 
раммы предназначены для создания спрайт-файла — кодового 
файла, содержащего набор спрайтов, готовых для использования в 
Газет Ваз1с. 


Основное различие описываемых генераторов спрайтов в том, 
что фирменная программа ЭРТСЕМ ориентирована на создание 
изображения «с нуля» по точкам, а эртцег позволяет использовать 
для этого готовые картинки, нарисованные в любом графическом 
редакторе для 7.Х 5ресйат (Ай 5 Ч1ю, Агиз П и другие} или даже 
позаимствованные из фирменных «игрушек». Как нам кажется, в 
этом смысле 5ртиег удобнее, так как специальные графические 
редакторы обладают гораздо болышими возможностями для 
формирования картинок, чем ЭРТСЕМ. Кроме того, ЭРТСЕМ 
позволяет создавать спрайты с максимальным размёром только 
15х15 знакомест, а эртИет — 32х22, то есть почти во весь экран. 
Однако у каждого свой вкус, поэтому мы подробно опишем обе 
программы. 


Программа $РТСЕМ 


Фирменный генератор спрайтов, по сути, является примитив- 
ным графическим редактором. Процесс создания спрайт-файла с 
помощью ЭРТСЕМ выглядит так: 


1. оперируя клавиатурой, пользователь создает рисунок одного 
знакоместа; 


_2. рисунок знакоместа помещается в спрайт; 


3. построенный из отдельных знакомест спрайт записывается в 
память; 


4. несколько спрайтов сохраняются в виде спрайт-файла на 
диске или ленте. 


Загружается спрайт-генератор оператором ЕОАВ "5РТСЕМ". В 
нижней строке экрана появляется запрос: СОЁО ОК У/АЮМ $ТАВТ? 
(«холодный» или «теплый» старт). При «холодном» старте прог- 
рамма запускается «с нуля», то есть очищается область спрайт- 
файла. «Тенлый» старт используют для продолжения работы после 
случайного или намеренного выхода из ЭРТСЕМ в Бейсик. В этом 
случае нужно выполнить оператор СО ТО 2 и выбрать «теплый» 
старт, нажав клавишу М. Таким образом можно сохранить в па- 
мяти спрайт-файл (но не экранную картинку, ее придется рисо- 
вать заново). 


Программа $ргЁег написана на языке Газег Ва$1с, и сама по себе может служить 
примером использования некоторых его возможностей. 
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Сразу ` после ‘загрузки программы нужно осуществить «холод- 
ный» старт, то есть нажать клавишу С. Затем на новый запрос: 
СОЕО $ТАКТ (У/М), чтобы подвердить «температуру старта», придет- 
ся нажать клавишу У. Программа ЭЗРТСЕМ вообще очень нело- 
верчива и постоянно требует от пользователя подтверждения его 
действий. Наконец, после окончания диалога, на экране появится 
картинка (рис. 17). 


Активное окно 


Копонка 
текущих 


атоибутов ^^ 
$ $ >” 


< Курсоры 


Рабочее поле 


Информацион- 


ные строки 


Рис. 17. Рабочий экран генератора спрайтов 5РТСЕМ. 


Большой квадрат размером 15х15 знакомест в правом верхнем 
углу — это рабочее поле, в котором формируется спрайт. Спрайт с 
заданным номером будем называть текущим спрайтом. В правом 
верхнем и левом нижнем углах рабочего поля мигают два курсора: 
вертикальный и горизонтальный. Знакоместо, расположенное на 
пересечении этих курсоров, назовем активным знакоместом. Его 
увеличенное изображение, именуемое увеличенным знакоместом, 
находится левее рабочего поля. В рабочем поле выделяют активное 
окно. верхний левый угол которого совпадает с активным знакоме- 
стом, а ширина и высота задаются соответствующими командами. 
Еще левее — столбец текущих атрибутов. Внизу размешены 
информационные строки: 


МЕМОКУ ЕЕРТ — свободный объем памяти 
Аля размещения спрайтов (в байтах}; 
Х РОЗ, У РО$ — горизонтальная и вертикальная координаты 
курсора рабочего поля (1...15); 
ЗРЮПЕ — начальный адрес размещения 
в памяти текущего спрайта; | 
5РАТЕ НЮНТ — высота активного окна (в знакоместах); 
ЗРЮТЕ ГЕМСНТ —— ширина активного окна (в знакоместах); 
ЗРЗТ — начальный адрес спрайт-файла в памяти 


(сразу после загрузки — 65279); 
РМО — конечный адрес спрайт-файла; 
5РЕПЕ МОМВЕЕ —— номер текущего спрайта (1...255). 
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Теперь более подробно расскажем о том, как работать с програм- 
мой ЭРТСЕМ. 


Создание и редактирование изображения в увеличенном знакоме- 
сте. Перед началом создания новых спрайтов желательно подгото- 
вить на разграфленном листе бумаги «проекты» их изображений. 
Это намного упростит и ускорит работу. Ведь в ЗРТСЕМ спрайты 
строятся из отдельных кирпичиков — знакомест, и удержать в голо- 
ве весь «проект» (то есть как будет выглядеть спрайт целиком} доста- 
точно сложно. Прорисовка знакомест идет в увеличенном знакоме- 
сте: клавишами 5, 6, 7, 8 выбирается требуемый пиксель, клави- 
шами 9 и 0 он, соответственно, включается и выключается. 

Перенос изображения на рабочее поле. Копирование увеличенно- 
го знакоместа в активное знакоместо осуществляется по команде 
(клавише) У. Позиция активного знакоместа устанавливается кла- 
вишами $$/5, $$/6, $$5/7, 55/8. По команде К ранее созданное знако- 
место возвращается на редактирование, либо по команде @ стирает- 
ся. При желании можно очистить и все рабочее поле ($$/ 0). 

Метод прямого ввода данных. Создать элемент изображения 
спрайта можно, и не прибегая к построениям в увеличенном 
знакоместе. После нажатия клавиши О программа ЭРТСЕМ позво- 
ляет последовательно, по нажатию Ещег, ввести восемь значений: 
восемь байт данных, соответствующих одному знакоместу (как при 
построении символов, определяемых пользователем). Значения, 
естественно, должны лежать в пределах 0...255 (десятичные) или 
НОО...НЕЕР (шестнадцатеричные). Изображение побайтно перено- 
сится в активное знакоместо рабочего поля. 

Управление атрибутами. При переносе изображения из уве- 
личенного знакоместа на рабочее поле и обратно ему (изобра- 
жению) могут присваиваться текущие атрибуты, а могут и не 
присваиваться — все зависит от того, какой режим был задан: 
нажатие клавиш А, затем 1 (то есть А+1) разрешает перенос ат- 
рибутов, А+0 — запрещает. 

Значения текущих атрибутов устанавливаются клавишами Х 
(цвет тона: 0...7), С (цвет фона: 0...7), В (яркость: 0, 1] и У 
(мерцание: 0, 1). Кроме такого последовательного способа опреде- 
ления текущих атрибутов, в процессе работы их можно изменить 
все одновременно, присвоив им значения атрибутов активного 
знакоместа (клавиша 0). Возможна и обратная операция: запол- 
нение активного знакоместа текущими атрибутами (клавиша 1). 

Операции в активном окне. В процессе создания спрайта его 
изображение на рабочем поле можно трансформировать. Опе- 
рации над изображением осуществляются в пределах активного 
окна, верхний левый угол которого определяется положением ак- 
тивного знакоместа, то есть курсорами рабочего поля, а высота и 
ширина задаются, соответственно, командами Н (1...255} и 
Г (1...255). Границы активного окна постоянно на экране не отоб- 
ражаются, но их всегда можно увидеть, удерживая клавишу В, — 
изображение в пределах окна начинает мерцать. 

Из всевозможных операций над изображением в ЗРТСЕМ ре- 
ализованы лишь самые элементарные: циклический скроллинг 
вправо, влево, вверх и вниз (команды, соответственно, $5/Т, $$/Т, 
$5/0 и $$/У), инверсия (клавиши Е+1)}, зеркальное отображение 
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картинки Е 2) и атрибутов (Е+3) относительно вертикальной. оси 
окна. 

Запись спрайта. Спрайт с текущим номером записывается в 
память (в спрайт-файл) нажатием клавиинги С. Размеры его опреде- 
ляются ‘границами активного окна. Перед записью необходимо 
проверить правильность совмещения окна с изображением (кла- 
виша Е). 

Изменение номера текущего спрайта осуществляется по коман- 
де $ (1...255). Если указывается уже существующий номер, будет 
выдано сообщение о совпадении номеров. 

При записи по команде С ранее существующий в спрайт-файле 
спрайт с текущим номером заменяется новым. При необходимости 
изображение старого и созданного спрайтов можно совместить. 
Делается это с помощью команды О, реализующей три принципа 
наложения: ОК, ХОК и АМШ (см. стр. 164), которые задаются, 
соответственно, нажатием одной из клавиш: 1, 2 или 3, после О. 

Изображение с рабочего поля может переноситься в память как 
с текущими атрибутами, так и без них, в зависимости от того, 
разрешен или запрещен перенос текущих атрибутов (команда А+1 
или А+0). 

Проверить правильность записи спрайта в память или вызвать 
его на редактирование можно клавишей Р. По этой команде те- 
кущий спрайт из памяти копируется в активное окно. 

С помощью нажатия клавиши $расе можно наложить изобра- 
жение активного окна на спрайт с текущим номером. Конечно, это 
возможно, только если размеры окна меньше размеров спрайта в 
памяти. Команда запрашивает координаты знакоместа в спрайте, 
куда будет наложено изображение (МРОТ СОШОММ, МРОТ КОМУ). 
Принцип наложения задается нажатием одной из клавиит: 


1 -— окно перемещается в спрайт, затирая фон; 
2 -— наложение по принципу ОК; 

3 -— наложение по принципу ХОК; 

4 — наложение по принципу АМО. 


При необходимости можно создать и пустой спрайт с шириной 
и высотой, заланными пользователем в интервале от 1 до 255 
знакомест (команда $$/С). Размеры спрайта вводятся на запросы 
ИЧРОТ ЕМСНТ, МРОТ НСНТ. 

Преобразование спрайтов в памяти. ЭРТСЕМ позволяет транс- 
формировать спрайты не только на экране, но и в памяти. Коман- 
ла М выполняет тот же минимум преобразований с текущим 
спрайтом в памяти, что и команда Е с изображением в активном 
окне: инверсия (М+1), зеркальное отображение изображения (М+2) 
и атрибутов (М+3)} относительно вертикальной оси окна. 

Кроме того, программа предоставляет возможность скопировать 
текущий спрайт, повернутый на 90°, в спрайт с другим номером — 
команда В. Номер второго спрайта вводится на запрос программы. 

По команде М происходит удаление из спрайт-файла текущего 
спрайта. При этом все спрайты, находящиеся в памяти ниже 
изъятого, поднимаются вверх, занимая свободное пространство. 

Команла тестирования спрайтов Т (аналогичная функции ?$Т) 
выводит на экран параметры текущего спрайта: в графы `5РЮПЕ 
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НСНТ и $РЮПЕ ВЕМСТН. — его высоту и ширину, в графу $РЕТЕ — 
адрес его размещения в памяти. 

Запись и загрузка спрайт-файла. После создания спрайт- файла 
можно записать. его на ленту или диск, нажав клавиши $$/5. 
Программа выдаст запрос о формате записи (ОРПОМ1 — ОРТОМ2), 
в ответ на который требуется нажать клавишу 1 или 2: 


1 - спрайт-файл записывается в формате, допускающем пос- 
ледующую загрузку файла в 5РТСЕМ и редактирование, но 
исключающем возможность использования его в програм- 
мах на Газег Ваз1с; 


2 -— спрайт-файл записывается в формате для использования в 
программах, но его уже «не возьмет» генератор спрайтов. 


После задания формата записи спрайт-файла на соответству- 
ющий запрос вводится его имя. Нужно нажать одну из пяти кла- 
виш: 1, 2, 3, 4, и 5. Соответственно, спрайт-файл запишется пол 
именем "1", "2" ит. д. 

Перед записью в информационной строке появится сообщение 
о нижней границе спрайт-файла: 


РЕКЕ = М АБОКЕ$$ = ХХХХХ 


— где М — имя (номер) спрайт-файла, а ХХХХХ — его нижняя 
граница (5ТАКТ). Это значение следует запомнить: именно его 
необходимо вводить при загрузке спрайт-файла с помощью прог- 
раммы-диспетчера Газет. 

После записи спрайт-файла автоматически выполняется опера- 
тор сравнения УЕКРУ. Если при сравнении произойдет сбой, прог- 
рамма «вываливается» в Бейсик. Аля возврата в ЗРТСЕМ с сохра- 
нением спрайт-файла нужно выполнить оператор СО ТО 100. 

Загружаются спрайт-файлы с ленты или диска по команде $$/.. 
После нажатия клавиши программа выдаст серию запросов: 


ГОАВ $РЕПЕ$ ЕКОМ ТАРЕ (У/М) (загрузить с ленты?) 
ГОАО $РЮПЕ$ ЕРКОМ 015К (У/М) (загрузить с диска?) 
ИЧРОТ 5РЮПЕ РЕ (1—5) (введите имя спрайт-файла) 


После загрузки спрайт-файла находящиеся в памяти спрайты, 
естественно, стираются. 


Программа $рёег” 


Генератор спрайтов $ргЁег позволяет создавать спрайты разме- 
ром до 32х22 знакомест и формировать спрайт-файл длиной до 26 
килобайт. Готовые спрайт-файлы и экранные файлы загружаются 
в компьютер и записываются на ленту или диск непосредственно 
в процессе работы. В программе используется один формат записи 
спрайт-файла, допускающий и последующее редактирование 
файла в генераторе, и использование его в программах на 
Газег Вазс. 


ы Текст программы приведен в Приложении 3 
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Алгоритм создания спрайт-файла программой ЗргЁег. Картинки 
спрайтов рисуются в любом графическом редакторе*. Затем экран- 
ный файл со спрайтами записывается на ленту или диск. Естест- 
венно, можно пользоваться и готовыми экранными файлами. 

С помощью программы $рт(ег спрайты «снимаются» с экрана и 
помещаются в спрайт-файл, который затем может быть занисан на 
ленту или диск. 

Программа загружается оператором ЕОАВ "5РЮТЕК". Сразу после 
загрузки появится запрос о типе магнитного накопителя: Таре ог 
ОБК (Т/О). Для работы с магнитофоном нажимается клавиша Т, с 
дисковолдом — О. 

Далее, на запрос: $сгееп пате?, вводится имя экранного файла с 
изображениями спрайтов. 

После загрузки экранного файла в двух нижних строках появля- 
ется информация о текущих параметрах, которая будет постоянно 
находиться перед глазами: 


„РМ — номер текущего спрайта; 

.НСТ — высота активного окна (в знакоместах}); 

„СЕМ — ширина активного окна (в знакоместах); 

ЗТАКТ — адрес начала спрайт-файла (нижняя граница); 


ГЕМОНТ — длина спрайт-файла. 


В верхнем левом углу экрана размещается активное окно. Оно 
задает границы спрайтов, переносимых в память. Размеры окна — 
ширина и высота — легко изменяются слелдующими клавишами: 


С$/5 — уменьшение ширины активного окна на знакоместо; 
С5/6 — увеличение высоты активного окна на знакоместо; 
С$/7 — уменьшение высоты активного окна на знакоместо; 
С5/8 —— увеличение ширины активного окна на знакоместо. 


Клавингами 5, 6, 7? и 8 весь экран циклически прокручивается 
по четырем направлениям с шагом в одно знакоместо. Таким 
образом, любой фрагмент экрана может быть помещен в активное 
окно, а оттуда перенесен в память в виде спрайта. При этом, 
соответственно, изменится содержание информационных строк. 
При изменении размеров активного окна и выполнении некото- 
рых других операций размеры окна индицируются инверсией. 


Управляющие клавиши программы $ртет: 


М - ввод нового номера текущего спрайта (.5РМ). Допускаются 
значения от 1 ло 255; 


С — создание спрайта с номером .5РМ — копирование изобра- 
жения из активного окна в спрайт-файл; 


Р — перенос спрайта с номером .5РМ из памяти в активное окно; 

Р -— стирание (удаление из спрайт-файла) спрайта с номером 
.5РМ; 

С — загрузка нового экранного файла с ленты или диска. На 


запрос $сгееп пате? вводится имя экранного файла; 


При создании экранов помните, что нижние две строки будут заняты генератором 
спрайтов для вывода служебной информации. 
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$ — запись готового спрайт-файла на диск или ленту. Перед 
занисью следует запомнить значение переменной $ТАКТ, 
индицируемое винформационной строке {нижняя граница 
спрайт-файла). Оно потребуется при загрузке спрайт-фай- 
ла с помощью программы-диспетчера Газет; 

Г — загрузка спрайт-файла для редактирования. Перед загруз- 
кой в ответ на запрос $аг+та адагез$? следует ввести адрес 
нижней границы загружаемого спрайт-файла. При загруз- 
ке нового спрайт-файла спрайты, ранее занесенные в па- 
мять, будут утрачены; 


У — показ границ активного окна, 
В 


— выход в интерпретатор Га$ет Ваз1с. Команда может пона- 
добиться для выполнения других инструкций Газег Ваз1с, 
не предусмотренных генератором спрайтов. 


Любой запрос может быть отменен, если в ответ на него просто 
нажать Епиег. Исключение составляет запрос 54а та адагез$?, кото- 
рый отменяется вводом недопустимого значения стартового адреса 
(меньше 30000 или больше 56575). 

В процессе работы в нижней строке экрана будут появляться 
сообщения, понятные любому программисту, так как в них исполь- 
зуется не более десятка английских слов. 

Если при работе Вы случайно (или нарочно) «вылетите» в 
Бейсик, то вернуться в программу можно, дав команду СО ТО 0 или 
КИМ. При этом спрайт-файл сохраняется, но картинка на экране не 
восстановится. 


Создание спрайтов больших размеров 


Оба рассмотренных выше генератора спрайтов накладывают 
ограничения на максимальный размер создаваемого спрайта. Для 
программы 5ртЦег этот предел — 32х22 знакоместа, для ЗРТСЕМ и 
того меньше — 15х15. Однако спрайт любых размеров, в том 
числе и спрайт длиной в несколько экранов, можно легко добавить 
в готовый спрайт-файл, не пользуясь генератором спрайтов. Для 
этого необходимо всего лишь выполнить несколько операторов 
Газег Ваз1с. | 


Сначала рассмотрим алгоритм включения в готовый спрайт- 
файл нового спрайта с размером, меньшим или равным экрану: 


1. создать изображение спрайта в виде экранного файла (в 
графическом редакторе) и сохранить его на диске или ленте. 
Для удобства изображение лучше размещать в левом верхнем 
углу экрана (чтобы не запоминать его положения}; 


2. загрузить интерпретатор Газет Ваз1с; 
. выполнить СЁЕАК 25000; 


4. загрузить готовый спрайт-файл с адреса, равного его нижней 
границе (назовем ее $ТАЮТОЁО}; 


5. записать в ячейки 62464 и 62465 адрес нижней границы 
$ТАЮТОЕО; 


хх 
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6. залать номер`и размеры добавляемого сирайта в знакомсстах, 
выполнив операторы :5РМ=М: .ВЕМ=Ь:.НСОТ=Н; 


7. ВЫПОЛНИТЬ слелующие несколько строк: 


10 ГОАБ "5СВЕЕМ"СОВЕ 16384,6912: КЕМ Загрузка экрана 
20 .15РЮ: РЕМ Увеличение размеров спрайт-файла 
30 .СТВЕ: ВЕМ Запись спрайта 


8. определить новую нижнюю границу спрайт-файла: 
ЕТ $ТАЮТ=РЕК 62464 


‚ сохранить модифицированный спраит-фаил: 
ЗАУ\УЕ "5РЮТЕ$"СООЕ $ТАКТ, 56575—5ТАЕТ 
— где $ТАКТ — новая нижняя граница спрайт-файла. 


и 


Описанным выше методом можно создать спрайт размером не 
больше экрана — 32х24 знакоместа. Преодолеть это ограничение 
позволяет другой метод. Рассмотрим его на примере создания 
спрайта длиной в 96 и высотой в 3 знакоместа в готовый спрайт- 
файл (использование такого спрайта описано в разделе 
«Скроллинг пейзажа» на стр. 169). 

Предварительно нужно нарисовать спрайт в графическом ре- 
дакторе, разместив его на экране в три полосы высотой по 3 
знакоместа и длиной в 32 столбца. Первая полоса должна на- 
чинаться с верхней строки экрана, между полосами не должно 
быть пробелов. 

Далее необхолимо выполнить послеловательность действий, 
описанную выше, дополнив программку из пункта 7 слелующими 
строками: 


30 „ЕЕМ=З1:.НСТ=З:.СОЁ=0 

40 .КО\У\М=0:.5СЬ=0:.СМУВЬ: РЕМ Перенос в спрайт 1-й полосы 
50 .КО\М/=3:.5СЁ=31:.СУИВЕ: КЕМ Перенос 2-й полосы 

60 .КО\М/=6:.5СЬ=62:.С\УУВЕ: КЕМ Перенос 3-й полосы 


КОМПИЛЯТОР 


Компилятор Газег Вас преобразует исходную бейсик-програм- 
му в некую конструкцию из кодов с целью сделать программу 
независимой от интерпретатора и повысить скорость ее работы. 

Однако, хотя программа после компиляции и освобождается от 
опеки интерпретатора, она попадает в другую кабалу: не может 
работать без присутствия в памяти пакета рабочих процедур ком- 
пилятора. Но обычно заботиться о размере программы не 
приходится: любая программа, написанная в интерпретаторе 
Газет Ваз1с, сможет быть обработана компилятором*. 


Компилятор Разег Ва$!с может транслировать и стандартные бейсик-программы, 
нс без особого выигрыша в скорости 
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Ограничения на текст исходной программы 


Основное, на что стоит обратить внимание при работе с ком- 
нпилятором, — это ограничения, накладываемые им на использо- 
вание в компилируемой программе операторов Зресиит-Бейсика: 


‚ запрещается использование . операторов С\ЕАВ, —МЕКЮСЕ, 
СОМТИМЧОЕ, Н$Т, НА5Т; 

. операторы ГОАО, 5АУЕ, УЕЮЁРУ допускаются только при ус- 
ловии, что они загружают или записывают на ленту отком- 
пилированную программу (то есть они не могут работать, 
например, с некомнилированной программой, с кодовыми 
блоками}. Команды обращения к диску в системе ТВ-РО5 не 
выполняются вооблце; 

. в операторах ®ОМ, ©О ТО, ©О $38, КЕЗТОКЕ допускаются только 
целочисленные параметры (нельзя ‘использовать переменные 
и выражения}; 

. оператор ЮУМ работает как обычно, но не производит очистки 


переменных; 
› в операторе ИМРУТ не допускается использовать ключевое слово 
ЫМЕ; 
‚ операторы ОРЕМ# и СЕО$Е# работают только с нотоками "5" и 
реа : 


. если в цикле РОКЮ...МЕХТ содержится оператор Тазет Вазс, то 
конечное значение параметра цикла не должно быть меньше 
начального при положительном значении $ТЕР или превос- 
ходить его при отрицательном $ТЕР, то есть цикл должен быть 
выполнен хотя бы один раз. Пример: 


10 ГЕТ $=®МО*10 
20 РОК п=5 ТО $:.1МУУ: МЕХТ п 


Во избежание ошибок в указанный фрагмент следует вставить 
одну дополнительную строку: 


15 14+ $<5 ТНЕМ СО ТО 10 


Текст исходной программы сохраняется на магнитном 
носителе оператором $АУЕ "МАМЕ". 


Обратите внимание, что АЛЯ нормальной работы 
скомпилированной программы исходная бейсик-программа долж- 
на стартовать с первой строки. 


Компиляция 


При компиляции в памяти компьютера должны находиться толь- 
ко текст исходной программы и сам компилятор. 

Прежде всего нужно «сбросить» компьютер, выполнить 
`СЪЕАК 59799 и оператором ЕОАВ "МАМЕ” загрузить исходную прог- 
рамму. После этого оператором ГОАБВ "СОМРСОБЕ" СОПЕ загружает- 
ся компилятор. 
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Компиляция запускается оператором КАМРОМИМЕ ЦК 59800. 


Во время компиляции экранная область используется в качестве 
буфера, ноэтому в верхних строках экрана отображается случай- 
ная информация. По окончании компиляции экран очистится и 
внизу появится сообщение типа 0 ОК, 1000:1, которое означает, что 
все нормально, компиляция закончилась на строке 1000. Остается 
только сохранить полученный фаил. оператором 
5АУЕ "МАМЕсотр” ИМЕ 1. Перел записью не следует выполнять опе- 
ратор СЕЕАК. | 

Полученный файл не поддается редактированию ни средствами 
стандартного Бейсика, ни средствами ГТазег Вазс, поэтому есть 
смысл сохранить исходную (некомпилированную)} программу. 

Если взглянуть на листинг откомпилированной программы, то 
мы увидим всего 2-3 строки. Первая 


0 РАМТ 0 


содержит информацию для пакета рабочих процедур и не выпол- 
няется. Вторая строка 


0 КАМРОМИЕ Ч95Ю 59800 
запускает откомпилированную программу. 


Если в исходной программе имеются функции, определяемые 
пользователем, то их список помещается в третьей строке с номе- 
ром 0. Все операторы ВАТА помещаются в четвертую строку, также 
с номером 0. 

К сожалению, компиляция не всегда заканчивается сообщением 
0 ОК. Она может быть прервана с выдачей номера строки, в кото- 
рой встретилась ошибка, и одного из слелдующих сообщений: 


Шеда! $+а1етеп! Гоип@ 


обнаружен один из недопустимых операторов: СЪЕАК, МЕКСЕ, Ы$Т, 
ЦТ или СОМТМИЕ; 


Ргоседиге Че пМ!юот пе5#т9 еггог 


наидено два описания процедуры подряд без оператора ‚ВЕТМ 
между ними; 


КЕТМ мНКВоц{+ ОЕЁ т еггог 


найден оператор .ЮЕТМ без соответствующего описания процеду- 
ры; 


Ргоседиге по} фоцпа 
обращение к неописанной процедуре. 


Загрузка откомпилированной программы 


Для загрузки и запуска откомпилированной программы необ- 
ходима отдельная программа-загрузчик, написанная на эзреснит- 
Бейсике. 


188 


КОМПИЛЯТОР 


Стандартный, универсальный загрузчик, содержится в файле 
"ГОАГБЕК”: 


10 СТЕАК 59799:ВЕМ Пространство под рабочие процедуры" 

20 "ЕТ $р51{=ХХХХХ: РЕМ Нижняя граница спрайт-файла (5ТАЮТ) 

30 ГОАБ "РТСОБЕ” СОПЕ: ВЕМ Загрузка рабочих процедур 

40 ГОАР "5РЕТЕ$" СОГЕ $рз1: КЕМ Загрузка спрайт-фаила 

50 ЁЕТ +=1МТ(5р$1/ 256) : РОКЕ 62464, (5р5{-256*{): РОКЕ 62465, +: 
КЕМ Указание адреса начала области спрайтов 

60 РОКЕ 62466,255 : РОКЕ 62467,220: КЕМ Указание адреса конца 
области спрайтов 

70 РОКЕ 56575,0: КЕМ Метка конца области спрайтов 

80 ГОАО "МАМЕсотр": КЕМ Загрузка откомпилированной прог- 
раммы 


Для работы с этим загрузчиком необходимо только задать конк- 
ретные значения: 


в строке 20 — адрес нижней границы спрайт-файла ($ТАЕТ); 
в строке 40 — имя спрайт-файла; 
в строке 80 — имя откомпилированной программы. 


Во многих случаях загрузчик можно (и нужно) упростить. 


Вариант 1. Если в программе не используются спрайты и нет 
кодовых частей, то загрузчик сократится до 4 строк: 


10 СЁЕАК 59799 

20 ГОАБ "КТ СОБЕ" СОБЕ 
30 РОКЕ 56575,0 

40 ГОАО "МАМЕсотр" 


Вариант 2. При необходимости подгрузки спрайт-файла, на- 
пример, с именем "5$РЮПЕ$" и стартовым адресом 40000, загрузчику 
можно придать «конкретный» вид: 


10 СЁЕАК 39999: ВЕМ $ТАЮТ-1 

20 ГОАО "КТ СОБЕ" СОБЕ 

30 ГОАВ "5$РЮПТЕ$" СОРЕ 40000 

40 РОКЕ 62464,64: РОКЕ 62465,156: КЕМ 40000=64+256х 156 
50 РОКЕ 62466,255: РОКЕ 62467,220: КЕМ 56575=255+256х220 
60 РОКЕ 56575,0 

70 ГОАВ "МАМЕсотр” 


Вариант 3. Может случиться, что для работы откомпилирован- 
ной программы необходимы кодовые блоки, например, второй 
знакогенератор или подпрограмма в машинных кодах. Чтобы най- 
ти для них место, рассмотрим верхнюю часть памяти 7Х 5$ресНат 
(табл. 11). 


г ая лучше выбрать на 1 меньше нижней границы спрайт-файла 
(ТАКТ). 
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Таблица 11. Распределение памяти в присутствии 
откомпилированной программы. 


РА 65535 
Процедуры компилятора "КТ СОБЕ" 
59800 
Свободная область 
ЕМО ——————_—_—_—_—_—_—_о—_о_о_о_о_о 56575 
Область спрайтов 
ТАКТ 


КАМТОР=$ЗТАКТ-1 (23730) 


Е _НМЕ (23641) : 
Переменные Бейсика 
УАБ5 (23627) 

Бейсик-программа 
РКОС (23635) 


Как видно из приведенной таблицы, между областью спрайтов 
и пакетом процедур "ВТ СОБЕ" имеется около 3 килобайт свободной 
памяти, начиная с адреса 56576. Проще всего поместить кодовые 
части именно в эту область. При этом в текст загрузчика (мо- 
дифицируем 2-й вариант} добавим строку: 


15 ГОАО "УОЧЕСОРЕ" СОРЕ 56576: КЕМ Загрузка кодового 
файла 


Несколько сложнее размещать кодовые части, если их длина 
превышает 3 килобайта. Место под кодовые части можно заре- 
зервировать, вставив в спрайт-файл при его формировании пус- 
той спрайт, то есть спрайт, не несущий никакой информации. 
Размер и адрес начала пустого спрайта можно определить при его 
создании в генераторе спрайтов или с помощью функции 15$Т. А 
строка 15 изменится на 


15 ГОАО "УОУВСОВЕ" СОБЕ аааг 


— Где аааг — адрес начала пустого спрайта. При необходимости 
‚можно создать несколько пустых спрайтов. 

Можно воспользоваться также оператором перемещения 
спрайт-файла .ЮЕСТ. В этом случае в загрузчике нужно допол- 
нительно изменить адрес верхней границы спрайт-файла ЕМО. 


Выполнение откомпилированной программы 


После запуска откомпилированной программы ее невозможно 
остановить нажатием клавиш С$/$расе (ВгеаК). Если же 
происходит сбой в работе программы, то она прерывается с выда- 
чей одного из стандартных сообщений об ошибке, но, к сожа- 
лению, без указания места возникновения ошибки. 
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Единственное новое сообщение об ошибке, которое генерирует 
сам пакет рабочих процедур компилятора, — это Ргодгагт по# сотрйеа, 
что означает: при старте программы она не идлентифицирована как 
скомпилированная. 


Корректировать откомпилированную программу, как уже го- 
ворилось, можно только одним способом — вносить изменения в 
текст исходной (некомпилированной} программы и компилиро- 
вать вновь. 


ПРИЛОЖЕНИЯ 


1. Операторы и функции ЁГазег Вас 


Таблица 12. 


Зеркальное отображение окна экрана Се РО26 [01 | 161. 


.МАРУ | Зеркапьное отображение атрибутов 


окна экрана 
| .ЗЕТУ Установка атрибутов в окне экрана 


Скроллинг окна экрана 
.СЕ$У | Очистка окна экрана 


. МУТУ | Циклический скроплинг окна экрана 
на 1 пиксепь влево 


.УУК1ТУ | Циклический скроппинг окна экрана 
на 1 пиксель вправо 


„ЕТУ Скроплинг окна экрана 
на | пиксель влево 


.5КТУ Скроллинг окна экрана 
на 1 пиксель вправо 


.УУЕ4У | Цикпический скроллинг окна экрана 
на 4 пикселя впево 


.\У/К4У | Цикпический скроппинг окна экрана 
на 4 пикселя вправо 


.5Е4У Скроллинг окна экрана 


на 4 пикселя влево 


ГАЗЕВ ВАЯС_ 


Е 


ро < 
г 0 
я |: 
мы 
с: 9 
рае В 
И 
К 
э о 
х 
о т 
7ш 
Зь 
85 
м 
в 
0 


.5®4\ 


.УУЕ8У | Циклический скроллинг окна экрана - 
на 8 пикселей влево 


.УУЮ8У | Циклический скроллинг окна экрана 


9 8М 


т 
во 
© 9 
(©) 
хо бы, 
юр» 
вт 
в 
Е 
с 0 
ыы 
85 
Уч й 
м 
0/ 


Скроплинг окна экрана 
на 8 пикселей вправо 


.УУСКУ | Циклический вертикальный скроллинг 
окна экрана 


.5СКУ | Вертикальный скроплинг окна экрана 
Скроллинг атрибутов окна экрана 


.АТЁЕМ | Скроплинг атрибутов окна экрана 
влево 


.АТВУ | Скроппинг атрибутов окна экрана 2818 162 


вправо 


.АТОУ | Скроплинг атрибутов окна экрана 
вверх 


.АТОМ | Скроплинг атрибутов окна экрана вниз 2874 [01 | 162. 
Преобразование спрайтов в памяти 


ЧУМ | Инвертирование спрайта .ЭРМ РСЗЕ 
.МЮМ | Зеркальное отображение спрайта РО2С 
.МАЕМ | Зеркальное отображение атрибутов ЕО4Е 


„РММ | Поворот спрайта на 90° 
„ОЗРМ 
.ЗЕТМ 
СЕ$М 


.5Р2 


Г 
| 
са ЖА 
ох 
о о! 9 
шо 


Увеличение размеров спрайта 


Установка атрибутов спрайта .5РМ 


м 

т 

т 

> 
|= 

| 


Очистка спрайта 


Скроллинг спрайтов в памяти 


< 


1 М | Циклический скроллинг спрайта .5РМ 


на | пиксель влево 


КМ 


— 
со 
® 
@) 


м 
со 
@) 
О 
[5 = 
©^ 
С 


Циклический скроллинг спрайта 
на 1 пиксель вправо 


— 
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.521М | Скроллинг спрайта на 1 пиксель влево | .5РМ [891 
.5К1М | Скроплинг спрайта на 1 пиксель вправо Р8В5 [13 | 167. 


3 М | Циклический скроллинг спрайта 2900 | 13 | 167 
на 4 пикселя влево 


4М | Циклический скроллинг спрайта Р8Р7 | 13 | 167 
на 4 пиксепя вправо 


Скроппинг спрайта на 4 пикселя влево Р8ЕЕ 
Скроплинг спрайта на 4 пиксепя вправо Р8Е5 


Е8М | Циклический скроплинг спрайта на 8 Е8ОВ | 13 | 167 
пикселей влево 

К8М | Циклический скролпинг спрайта Р8ЕО | 13 | 167 
на 8 пикселей вправо 


Скроллинг спрайта на 8 пикселей влево Е801 


м|м| о: <ии| 
ЕЕ 


: Скроллинг спрайта на 8 пикселей Р8О6 | 13 | 167 
вправо 

.УУСЮМ | Цикпический вертикальный скроллинг „РМ Р94В | 17 | 167 
спрайта .МРХ 


.5СЕМ | Вертикальный скроллинг спрайта Р91Е 


Скроллинг атрибутов спрайтов в памяти 
.АТЕМ | Скроллинг атрибутов спрайта влево 
.АТЕМ | Скроллинг атрибутов спрайта вправо 


.АТОМ | Скролпинг атрибутов спрайта вверх 


.АТОМ | Скролпинг атрибутов спрайта вниз 


Разрешение/ запрещение переноса атрибутов 


.АТОМ | Разрешение переноса атрибутов 


.АТОЕ | Запрещение переноса атрибутов 


Перемещения: окно экрана — спрайт 


.СТВЕ | Копирование окна экрана в спрайт 


.СТОЮ | Наложение окна экрана на спрайт 
по принципу ОК 

„.СТХК [Наложение окна экрана на спрайт 
по принципу ХОЮ 


.СТМО | Наложение окна экрана на спрайт 
_ | по принципу АМО | 


7 Зак. № 192 193 


ГАЗЕК ВАЗС 


Перемещения: спрайт — окно экрана. 


т [160 
164 


.РТОЮ | Напожение спрайта на окно экрана : Р2АЕ | 33 
по принципу ОВ ь 

.РТХ® Наложение спрайта на окно экрана Р2В6 | 33 | 164 
по принципу ХОК 

.РТМО | Наложение спрайта на окно экрана .5РМ Р2ВЕ | 33 | 164 


по принципу АМО . КОМУ 
.СОЁ 


Перемещения: окно экрана — окно спрайта 
УУВЕ | Копирование окна экрана в окно : 
спрайта т 
. СУМОК | Наложение окна экрана на окно | 
спрайта по принципу ОЮ ь 


И 


.СУУХЮ | Напожение окна экрана на окно 
спрайта по принципу ХОЮ 


.СУУМО | Напожение окна экрана на окно 
спрайта по принципу АМО 


Перемещения: экран — окно спрайта 


.РУУВЕ | Вывод окна спрайта на экран 


.РУУОК | Наложение окна спрайта на экран 
по принципу ОК 


„РУХ Наложение окна спрайта на экран - Р2ЕА | 2В | 165 
по принципу ХОК 


.РУУМ Наложение окна спрайта на экран Р2Е0 | 2В | 165 
по принципу АМО 


Перенос атрибутов: экран — спрайт 


.СУ\УАТ | Перенос атрибутов окна экрана - РВАЕ | 2В 
в окно спрайта 


РУУАТ | Перенос атрибутов окна спрайта : РВЪА | 2В 
в окно экрана г 


Перемещения: спрайт — окно спрайта 


.СМВЕ | Копирование спрайта в окно другого 
спрайта 
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Наложение окна спрайта на другой 
спрайт по принципу ХОК 


.СМАТ | Перенос атрибутов спрайта 
в окно другого спрайта 


Е =- 
„РМАТ | Перенос атрибутов окна спрайта РСЗ3З | 23 
в другой спрайт 


Перемещение спрайта по экрану 


Перемещение спрайта 


Операции с областью спрайт-файла 
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Создание спрайта заданных размеров 
(понижается нижняя граница спрайт- 


файла) 


Создание спрайта заданных размеров 
(повышается верхняя граница спрайт- 
файпа) 


.ОЗРЮ 1 Уничтожение спрайта (повышается : 
нижняя граница спрайт-файла) 
_ МИ5РЮ | Уничтожение спрайта (понижается 
верхняя граница спрайт-файла) 


= Перемещение спрайт-файла в-памяти. 


.5РМ ЕС4З | 28 | 171 | 
НСТ 

СЕМ | 

= 
ЕЕ 


м = ГЕ] 
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Вспомогательные графические операторы и функции 


АР]М | Настройка переменных .НСТ и .ЕЕМ .5РМ ЕВЕЛ | 33 +172 
для спрайта .КОМУ 
==: 
Настройка переменных .НСТ и .ВЕМ „КОМУ 172 
для окна экрана .СОЕ 
„НОТ 
СЕМ 


?$СУ Проверка знакоместа на включенные .КО\УУ 172 
пиксели .СОЕ 

?5СМ Проверка спрайта на включенные .РМ 172 
пиксели 


ТУТ Определение существования спрайта Е. 
"Сервисные операторы | 


а ее 
.СОЕ 


ОА Перенунерация вр Е [Е 
ВЕК Удаление вери Е [Е 
РЕВ 
= = 


.АБУ 


2. Использование графических переменных .5Р1 и .5Р2 


Таблица 13. 


откуда куда откуда куда 
куда откуда куда откуда 
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3. Листинг программы $р!Шег*“ 


* 


0 


201 
203 


204 
208 
209 


210 
211 
212 


213 
215 


216 


РЕМ © РШег Ша. Автор П. Карпов 

СО $ОВ 1000 

РОКЕ 56575,0: С1$ : (ЕТ [=1: ВЕТ К=1: (ЕТ п=1: ВКАМОРОМШЕ 
05$ 58841: СО ТО 30 
.ЗЕТ=1:.ЮО\М/=0:.СО=0:.НСТ=22:.1ЕМ=32 
.5ЕТ=2:.ЮО\УИ=0:.СОЕ=0:.$РМ=1 
.5ЕТ=3:.ЮО\\/=22:.СОЁ=0:.НСТ=2: 1ЕМ=32 

ИЧРОТ "5сгееп пате? "; ЦМЕ а$: ГЕТ 2=16384: (ЕТ х=6912: 

СО ТО 2000 

ГЕТ $=РЕК62464: (ЕТ 9=56575—$ 

.ЗЕТ=З:.5ЕТУ:.СЕ$У: РАМТ #1;АТ 0,0;”.$РМ=";п;” .ВЕМ=“;К;” 
„НОТ=";Н”"$4аг+: ";5;"' ЦепаВ#: ";а 

.ЗЕТ=1 

РАЧЦЗЕ 0: ГЕТ а=СОрЕ ИМКЕУ$: СО ТО 100+а*(а=98 ОВ а=99 ОЮ 
а=100 ОК а=103 ОВ а=108 ОВ а=110 ОЮ а=112 ОЮ а=115 ОЮ 
а=118 ОК а>52 АМО а<57 ОР а=8 АМО К>1 ОЮ а=9 АМО К<32 
ОК а=10 АМО #<22 ОК а=11 АМО В>1) 

СЕТ К=К-—1: СО ТО 500 

СЕТ К=К+1: СО ТО 500 

СЕТ В=В+1: СО ТО 500 

СЕТ К=А-1: СО ТО 500 

.УУЕЗУ:.АТЁЬУ: СО ТО 500 

.МРХ=-—8:.У/СВУ:.АТОУ: СО ТО 500 

.МРХ=8:.У/СРУ:.АТОУ: СО ТО 500 

.МУЮЗУ:.АТЮУ: СО ТО 500 

ТОР 

СО ТО 60 

.ЕТ=2: ЕТ е=Т5Т: Е МОТ е ТНЕМ ЕТ а$="$рийе по 

фоипа": .ВЕМ=К:.НОТ=Ь: СО ТО 2050 

.О$РЮ: ЕТ а$="5рг!е девеа": ЕТ 1=4: СО ТО 2060 

.ЗЕТ=2: ВЕТ е= ТТ: ЕР МОТ е ТНЕМ .1ЕМ=К:.НСТ=В: .15РЮ:.СТВИЬ: 
ЕЕТ а$="5ргНе доНеп"”: (ЕТ {=4: СО ТО 2060 

ГЕТ а$="5рг{4е ех5{": ©О ТО 2050 

ИЧРОТ "З+аг#та аагез$? ";2: Е 2<30000 ОЮ 2>56574 ТНЕМ СО ТО 70 
„РОКЕб 2464,2: (ЕТ х=56575—2: МРОТ "5рйе пате? "; ММЕ а$: 
СО ТО 2000 

ИЧРОТ ".5РМ="; ЫМЕ а$: {Е а$="” ТНЕМ СО ТО 70 

ФО ТО 300 

.5ЕТ=2: СЕТ е= Т5Т: Е МОТ е ТНЕМ (ЕТ а$="5ргф4е по} 

фоипа": .ГЕМ=К:.НСТ=Н: СО ТО 2050 

„РТВ: ©О ТО 500 

ИЧРОТ "5ргНейе пате? "; ЫМЕ а$: Е а$="" ОР МОТ а ТНЕМ СО 
ТО 70 

|+: а ТНЕМ 5$АУЕ а$СОГЕ $,4: ©О ТО 70 


Внимание! Недопустимо изменять нумерацию строк. 
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217 
218 
220 


1030 
1040 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
3000 
3010 


3020 
3030 
3040 


3050 
3060 


СО ТО 250. 


-.ЗЕТ=2:.ВЕМ=К: НОТ=В:.ИЧУУ: ВЕЕР..01,30 


Е МКЕУ$<>"" ТНЕМ СО ТО 220 

„ЧУУ: СО ТО 70 

ГЕТ е=О$® 15619: КЕМ : 5АУЕ а$СОБРЕ $5,9 

Е МОТ е ТНЕМ СО ТО 70 

СЕТ а$="Е|е по{ зауеа": СО ТО 2050 

РОВ 1=1 ТО ТЕМ а$: Е а$(})<”0" ОК а$(;)>"9" ТНЕМ СО ТО 70 
МЕХТ г; ЕТ м=\УАЕ а$: Е т<=0 ОВ т>255 ТНЕМ СО ТО 70 
ЕЕТ п=т 

.ЗЕТ=2: .ЗРМ=п: .ВЕМЕК:.НСТ=Ь:.ИМУУ: ВЕЕР_.01,30:.1ЧУУ: СО ТО 70 
РОКЕ 23658,0: С15$ : РАМТ АТ 3,6; "Таре ог О5К? (Т/О)" 

РАСЦЗЕ 0: {Е ЧКЕУ$ ="+” ТНЕМ С1$ : (ЕТ 4=1: ©О ТО 1040 

|Е МКЕУ$<>"4" ТНЕМ СО ТО 1010 

СЕТ 9=0 

СЕ$ : ВЕЕР .005,30: РЕТОЮМ 

Е а$="” ТНЕМ СО ТО 70 

|Е 4 ТНЕМ ГОАБВ а$СОГЕ 2х: СО ТО 70 

ЕТ е=Ч5®Ю 15619: РЕМ : ГОАВ а$СОГЕ 2х 

|Е МОТ е ТНЕМ СО ТО 70 

СЕТ а$="”ЕР йе по} фоипа" 

БЕТ 1=2 

РАМТ 3#1;АТ 1,0; МК 1; РЕАЗН Т;а$: ВЕЕР 1,3: РАЦЗЕ 100: СО ТО 70 
НК 7: РАРЕКЮ 0: ВОЮОЕКЮ 0: СТЕАЮ 29999: СО ЗОВ 1000 

Е а ТНЕМ ГОАО "Г АЗОВ]"СОПЕ : ГОАВ "1 АЗГОВ!”"СОРЕ : 
РКАМООММЕ Ц5$К 62464: ГОАВ "СКАРН"СОПЕ : СО ТО 20 

ЕЕТ е=05$® 15619: ЮЕМ : ГОАО "ГАЗОВ/"СОБЕ 

|: МОТе ТНЕМ ЁЕТ е=05К 15619: КЕМ : ГОАО "ГАЗОВ СООЕ 
|+ МОТ е ТНЕМ КАМООМ!7Е \Ц5$Р 62464: ГЕТ е=\Ц5$Ю 15619: РЕМ : 
ГОАО "СЮАРН"СОРБЕ 

|+ МОТе ТНЕМ СО ТО 20 

РЕИМТ #1;АТ 1,0; МК 2; РЕАЗН 1;Ьоаата еггог": ВЕЕР 1,3: 
РАЧФЕ 100: $ТОР 


Программа сохраняется оператором 
ЗАУ\УЕ "ЗРЮТЕЮ” ЦМЕ 3000 
На магнитном носителе вслед за файлом "5РЮТЕВ” лолжны быть 


записаны следующие кодовые файлы: “"ЕАЗОВ]", "ЕАЗЕОВ]” и 
"СКАРН” (см. Приложение 5}. 
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4. Вызов подпрограмм Ёазег Ваз из машинных кодов“ 


Интерпретатор Газег Ваз1с можно использовать в качестве паке- 
та рабочих процелур при написании программ в кодах. Адреса 
процедур Газег Ваз1с хранятся в памяти в виде таблицы, начинаю- 
щейся с адреса #ЕС4Ш**. В ней на каждый оператор отводится 
8 байт. Первые 4 байта — имя оператора, следующие 2 байта — 
собственно адрес, 7-й байт — код типа команды, АА байт — 
порядковый номер оператора в таблице. 


Графические ‘переменные хранятся в виде наборов (.5ЕТ). 
кажлый набор отводится 12 байт, начиная с адреса #Е?7СВ 
(59339). Адрес конкретного набора вычисляет подпрограмма 
#ЕЭбЕ. Перед обращением к ней в регистр А заносится номер 
набора (0...15)***, а в НЕ подпрограмма возвращает требуемый 
адрес (его лучше представлять через регистровую пару [Х): 


|) А,<номер набора> _ 
САЁЕ ЖЕ бЕ 

РУ$ЗН НЕ 

РОР 1х 


Переменные в каждом наборе располагаются в слелдующей пос- 
ледовательности: 


[Х+0 младший байт .МЕМ [Х+6 — .5Ю\М 
ГХ+1 старший байт .МЕМ [Х+7 Ры- 32 38 
42 . ВО 1[Х+8 —.МРХ 
[Х+3 .СОЁ [Х+9_ .5РМ 
1Х+4 „БЕМ Х+10 .5Р1 
[Х+5 „НОТ ЕЕ] .5Р2 


В табл. 12 (Приложение 1) и табл. 14 приведена вся необ- 
ходимая информация для непосредственного обращения к пол- 
программам Тазег Ваз1с. В первой таблице находим интересующий 
оператор и определяем адрес процедуры и код типа команды, по 
которому из второй таблицы узнаем способ обращения к данной 
процедуре. Например, нам нужно выполнить оператор .5ЕТУ. В 
табл. 12 находим адрес — #ЕР9Б, код операции — #01. Из 
табл. 14 узнаем, что перед обращением к поднрограмме регистры 
В, С, Ни Е должны быть загружены, соответственно, значениями 
.КОУ\У, .СОЁ, „НСТ и .1ЕМ. Кроме того, поскольку оператор .5ЕТМ 
работает с атрибутами, предварительно нужно занести (если тре- 
бустся, конечно) в системную переменную АТТВ_Р (23693) байт 
атрибутов. После этого можно вызвать нодпрограмму, которая ус- 
тановит атрибуты в заданном окне. Выглядит это, например, так: 


10 ЕО А, %01101001 ; задаем ИМК 5, РАРЕК 1, ВЮЮНТ 1 
20 ЕО (23693), А 


Предлагаем этот раздел для читателей, знакомых с программированием на ас- 
семблере. 
*жх 
В этом приложении адреса ячеек памяти приведены в иисствадцатеричном виде. 


жжх ` - р > ` 
Если используется текущий набор, то его номер можно взять из ячейки #2902. 
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ГАЗЕК ВАЗС 


30; | 

40 ;загружаем регистры значениями `.ВО\М\/=1, .СОЁ=7, (НОТ=4, ВЕМ=Ь 
50 М) : 

60 69) Е: 

70 ЕО Н, 4 

80 Ш Э) Е 

90 САН ЗРЕР9О ; выполняем оператор .5ЕТУ 


Таблица 14. Загрузка регистров процессора при обращении 
к процедурам Ёазег Вазс. 


А=.5РМ, В=.МРХ 


В=.5Р1, С=.5Р2 


В=.5Р2, С=.5Р1, О=.5ЮК\У/, Е=.$5СЁ 


А=.5РМ, В=.ЮО\М, С=.СОЕ 


5. Спецификация файлов пакета ЁКазег Ваз“ 


Таблица 15. 


Интерпретатор 


Спрайт-файлы 
для интерпретатора 


Приводится спецификация фирменного пакета. В других версиях могут отличать- 
ся имена и длины бейсик-файлов. 


Г АЗЕЮ ВАЗ С 7540 
сое 
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ПРИЛОЖЕНИЯ 


СОБЕ СОБЕ 

Спрайт-файлы я ЗРЕТЕТА 1288 
[эти | 05 | 8 87_ 
Г зетив [нолвлу| 188] - — 


5РЕТЕ1В 
РЕМО 
$СВЕЕМ 
5РЕИТЕЗ 
ВАЯС 
САМЕ 
СВЕЕМ 
$РЕИТЕЗ 
ИЧУАБЕВ 
СОМРСОРЕ 
Г ОАБЕВ 
РТСОБЕ 


Демонстрационные 
программы 


Компилятор 


Загрузчик 
откомпилированных 
программ 


СООЕ 


3 
[ве | 3% = 
[ве | о 
[ве | 1 - 
[ве |3 = 


СОБЕ 5736| 59800 


[в [в 
[ве [8 - 
2 
3 
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У5 МедаВаз1< — один из лучших диалектов Бейсика для 
7Х Зреснит — был распространен в 1985 году под эгидой журна- 
ла «Уойпг Зшаи» (от названия журнала и возникли первые буквы 
в имени программы). 


Имеют хождение три версии МедаВаз1с, датированные все 1985 
годом: 1.1, 3.0 и 4.0. Различия между версиями 1.1 и 3.0. скорее 
косметические, причем не в ‘пользу версии 3.0. Дело в том, что 
МедаВаз1с 3.0 при попытке ввода некорректно. сформулирован- 
ных строк вместо выдачи предусмотренного ‘на’этот случай-сооб- 
щения Зутфах епог имеет обыкновение время от времени 
«зависать». Поэтому пользоваться этой версией без особых на то 
оснований не рекомендуется. Зато в версии 4.0 проблема про- 
верки вводимого текста решена. кардинально: синтаксис редакто- 
ром почти не проверяется, и комментирует программистские 
изыски МедаВаз1с 4.0 уже в ходе выполнения программы. Это 
объясняется тем, что редактор МедаВаз1с 4.0 разрешает сокращен- 
ную форму ввода не только для операторов стандартного Бейсика, 
как в предыдущих версиях, но и для многих операторов самого 
МедаВаз1с. С этим связано и единственное ограничение на сов- 
местимость различных версий: программы, составленные для 
МедаВаз1с 4.0 с сокращенной записью операторов МедаВаз1с, 
нельзя использовать в более ранних версиях. 

Дальнейшее изложение, ‘если не оговорено иное, справедливо 
для любой версии МедаВаз1с. Олнако для большей наглядности мы 
будем работать с версией 4. — русифицированным 
МедаВаз1с 4.0*. 

Поскольку МедаВаз1с вышел на рынок в 1985 году, а первый 
128-килобайтный Эреснит — годом позже, то они, естественно, 
оказались несовместимы, о чем остается лишь сожалеть, так как 


* 


Автор Мще Геатап. Файлы версии 4.0: МераВаз1с (тип ВАЗ!С, длина 655 байт), 
МераСоде (тип СОПЕ, длина 20373 байт, адрес загрузки 44996). О том, как и где 
приобрести версию 4. К, смотрите в рекламном разделе книги. 
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ЧТО МОЖЕТ МЕСАВАЗС? 


из-за болыного собственного объема МедаВазс (свыше 20 кило- 
байт) часто опгущается нехватка памяти при создании программ. 

Второй недостаток МедаВаз1с — несовместимость с дисковой 
системой ТК-РО5. Причина в том, что МедаВаз1с, так же, как и 
ТЕ-РО5, использует 2-й режим прерываний процессора*. Однако 
существуют способы преодоления этого недостатка; Один из них, 
наиболее простой, приведен в Приложении 3. 


ЧТО МОЖЕТ МЕСАВАЗС! 


Прежде чем начать работу с любой системной программой, 
нелишне выяснить ее возможности и сопоставить их со своей 
задачей. Поэтому кратко расскажем об особенностях МедаВазс, 
отталкиваясь от стандартного эзресиат-Бейсика. 


Нрежде всего, МедаВаз1с может абсолютно все, на что способен 
и Зресиат-Бейсик, если это «все» не требует больше 20 килобайт 
свободной памяти. И, конечно, любая программа на стандартном 
Бейсике (с учетом указанного ограничения по объему), будучи 
загружена в МедаВаз1с, станет прекрасно работать**. 


Графические возможности МедаВаз1с чрезвычайно богаты. Во- 
первых, это наличие многооконного ‘интерфейса, позволяющего 
достаточно гибко манипулировать выводом информации на экран. 
Во-вторых, три встроенных символьных набора с изменяемыми в 
широких пределах размерами символов. Наконец, оригинальный 
механизм управления спрайтами и кадрами, что существенно для 
написания игровых программ. Все это, несомненно, воодлушевит 
тех программистов, которые любят «делать красиво». 


Звуковые способности МедаВа$!с настолько же превосходят воз- 
можности оператора ВЕЕР 5ресиит-Бейсика, насколько и уступают 


потенциалу музыкального процессора компьютера 
7Х 5реснит 128. 


Что касается достижений МедаВаз1с в технике программиро- 
вания, то в первую очередь обращает на себя внимание довольно 
удобный редактор с посимвольным вводом онераторов и возмож- 
ностью копирования любого отрезка выведенного на экран текста 
в редактируемую строку. Разумеется, редактор дополнен болыпим 
числом новых команд, предназначенных как для управления мно- 
гочисленными дополнительными функциями МедаВаз1с, так и для 
создания дружественной обстановки для программиста. 


О прерываниях читайтев [1]. 


Неработоспособными окажутся только те программы, внутри которых (скажем, 
под оператором ВЕМ }) расположены подпрограммы в машинных кодах с абсолют- 
ной адресацией, так как начало бейсик-программ МераВаз:с устанавливает на 11 
байт выше, чем это делает стандартный интерпретатор. Кроме того, в бейсик- 
программе не должно быть обращений к подпрограммам в кодах, расположен- 
ным выше адреса 45000 (исключая. область ОРС). 


%*х 
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МЕСАВАЗС 


В болыном количестве МедаВаз1с содержит и средства структур- 
ного программирования: это и традиционный для расширений 
оресиит-Бейсика инструмент процедур, и циклы типа 
РКЕРЕАТ...ОМТ, и операторы, обеспечивающие параллельное вы- 
полнение двух программ, и пр. 

МедаВаз1с заботится и о тех, кто любит «копнуть поглубже»: 
кроме дополнительных команд работы с машинными кодами, он 
содержит встроенный монитор-отладчик. 


РЕДАКТОР 


АЧТО, ОЕСЕТЕ, ЕСТ, Е$САРЕ, КЕ$ЗЕТ 


Как ни крути, но приступать к программированию на 
МедаВаз1с можно лишь после ознакомления с работой его редакто- 
ра, тем более, что он кардинально отличается от стандартного 
спектрумовского. 


Все ключевые слова в МедаВаз1с набираются посимвольно, как 
обычный текст. При этом можно использовать как прописные, так 
и строчные буквы: все, что не заключено в кавычки или не стоит 
под КЕМ, редактор сам преобразует в прописные. Предусмотрена 
возможность ввода ключевых слов и в сокращенной форме, завер- 
шая сокращенное слово точкой. В версиях МедаВазс 1.1 и 3.0 
сокращения допускаются только для стандартных операторов 
эзресгат-Бейсика и должны формулироваться однозначно. Версия 
4.0 допускает сокращенную запись и новых операторов, а также 
различные варианты сокращений. Например, для оператора 
СОТО в версиях 1.1 и 3.0 принято только сокращение С., а в 
версии 4.0 возможны варианты ©., СО ., ©О.. Правильно сокра- 
щенные операторы 5ресиит-Бейсика редактор преобразует в со- 
ответствующий код синклеровской таблицы символов и вывод 
листинга программы осуществляет уже без сокращений. 

В собственных операторах МедаВаз1с связкой между ключевым 
словом и параметрами, если таковые предусмотрены, служит 
символ подчеркивания. Он должен присутствовать и в сокращен- 
ной записи ключевых слов МедаВаз1с (для версии 4.0). Например, 
вместо ЕОП_10 можно писать ЕЩБ._10, 


Если есть намерение написать достаточно длинную программу, 
то полезна будет команла 


АЧТО пк 


Она осуществляет автоматическую нумерацию строк. После вы- 
полнения АОТО_п,К в режиме ввода редактор будет подсказывать но- 
мера. очередных строк, начиная с номера пт и с интервалом К. 
Действие АОТО прекращается нажатием комбинации клавиш 
С$/55+55/1.. Надо следить только за тем, чтобы номер строки не пре- 
высил 9999, иначе возможны трудности с выходом из режима АЧТО. 
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РЕДАКТОР 


Команда 
ОЕТЕТЕ_п1,п2 


удаляет блок программы. Параметры п1 и п2 — номера первой и 
последней улаляемых строк. 


Вызвать на редактирование ранее введенную строку можно как 
обычно: «опустить» ее из листинга в строку редактора с помощью 
клавиш С5$/1. Но иногда для этого удобнее воспользоваться 
специальной командой 


ЕСТ _п 


— указав номер нужной строки п. 

Обратите внимание, что в МедаВаз1с вертикальное переме- 
щение курсора при переходе к соседней строке листинга програм- 
мы приводится в действие одновременным нажатием клавиш $$ и 
О (вверх) или 55 и У (вниз). Обычный же способ управления 
движением курсора вверх-вниз используется для вертикальных 
перемещений его в пределах вызванной на редактирование 
строки, что очень полезно при редактировании длинных (более 32 
символов} строк. 


В МедаВазс введен ряд дополнительных управляющих клавиш, 
работающих при редактировании строки программы: 


$5/@ — — устанавливает курсор в начало строки; 
$5/Е — устанавливает курсор в конец строки; 
С$/3 — удаляет всю редактируемую строку; 

С$/4 — удаляет символ правее курсора; 

$$/М/У — удаляет текст от курсора до конца строки. 


Ввод отредактированной строки происходит, естественно, при 
нажатии клавиши Ещег. После чего в версиях 1.1 и 3.0 
МедаВаз1с либо принимает строку, либо с сообщением $утщах еггог 
(синтаксическая ошибка} или Ва те (неправильная строка) отка- 
зывает в этом. Версия 4.0, как правило, принимает результат тру- 
дов программиста безоговорочно, а если он допустил ошибку, то 
соответствующее сообщение выдается уже в процессе выполнения 
программы. 

Следует также сказать о весьма удобном способе формирования 
редактируемой строки с помощью копирующего курсора. Выведите 
на экран какой-либо текст, например, листинг программы. На- 
жмите теперь $$ вместе с одной из клавиии: А, $, О или Е. В углу 
экрана появится зеленый квадратик — это и есть копирующий 
курсор. Упомянутыми клавишами, постоянно удерживая $$, его 
можно подвести к нужному месту экрана. Если теперь, не отпуская 
клавишу 55, нажать и держать клавишу 1, то копирующий курсор 
побежит вдоль выбранной строки и перенесет текст символ за 
символом в редактируемую строку. Эту операцию можно ком- 
бинировать с вводом символов с клавиатуры обычным порядком. 

Нужно следить за тем, чтобы шрифт, используемый в данный 
момент редактором, был из того же символьного набора, что и 
копируемый текст, а размер шрифта был стандартным (8х8 пиксе- 
лей), иначе копирование невозможно. 
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МЕСАВАЗС 


Предусмотрены также дополнительные сочетания клавиш для 
перемещения копирующего курсора: комбинация $$/С$+55/М пе- 
реводит копирующий курсор в верхний левый угол текущего окна 
(об окнах позже), а $5/С$+$$/М переносит копирующий курсор в 
следующее окно (этот эффект не очевиден, если окна совпадают). 


Листинг программы можно вывести на экран как обычной 
командой Ш$Т, так и нажатием комбинации клавипи $$/С$+$5/К. 
Нужно иметь в виду, что при выводе листинга, занимающего 
больше одного экрана, он прокручивается до конца: редактор 
МедаВаз1с не выдает сообщения $сго!й. Однако вывод можно при- 
остановить, нажав и удерживая клавишу М. После ее освобож- 
дения прокрутка возобновится. Если же нужно прекратить вывод 
информации, можно воспользоваться командой 


Е$САРЕ 


Вызывается она одновременным нажатием клавиши $расе и Е. 
Кроме прерывания вывода листинга, команда Е$САРЕ, как и Вгеак, 
прекращает выполнение, бейсик-программ. Более сильный вари- 
ант останова любой программы — команда 


ВЕЗЕТ 


Она инициируется одновременным нажатием клавиш $расе и В 
(не путать с кнопкой КЕЗЕТ на компьютере, это будет слишком уж 
сильно!). Выполнение ВЕЗЕТ, сохраняя в памяти программу, пере- 
водит МедаВаз1с в исходное состояние. Точнее, в условно исход- 
ное, поскольку, к примеру, ни команда ЮЕЗЕТ, ни даже МЕ\У/ не 
восстанавливают исходные параметры окон и некоторые другие 
значения, задаваемые системой при запуске МедаВаз1с. В отдель- 
ных случаях это доставляет неудобства, например, при загрузке 
другой программы вместо отработавшей. 


ШРИФТЫ 


РОМТ, МОШГЕ, МОЦ, $ПРРЬЕ, ЗРЕМТ, БОУИМ 


Начнем работу с МедаВаз1с с самого простого — изучим: его 
шрифтовые возможности. Как уже упоминалось, для подготовки 
примеров мы будем пользоваться русифицированной версией 
МедаВаз1с 4.В. Это означает, что в оригинальной версии 4.0 один 
из двух латинских символьных наборов (ЕОМТ_1) заменен набором 
символов русского‚алфавита. В. нем очертания знаков составляют 
стилистическое единство с сохраненным латинским шрифтом 
(РОМТ_2). Кроме того, в распоряжении программиста остается стан- 
дартный символьный набор, хранящийся в ПЗУ ИХ Зреснат 
(РОМТ_0). 

Итак, мы упомянули оператор, который переключает символь- 
ные наборы. Его формат 


РОМТ_1 


— где { — номер набора (0, 1 или 2). 
Текстовые возможности МедаВаз1с не ограничиваются: выбором - 
- одного-из` трех символьных наборов. Он-позволяет-менять размер 
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символов текущего набора: 4х8, 8х8, 8х16 и 16х16 точек 
(рис. 18). Устанавливаются размеры шрифта оператором 


МОБЕ_ тм] 


Параметр т может принимать 
значения от 1 до 4, соответству- 
ющие приведенному ряду разме- 
ров шрифтов. Оператор МОБЕ 
используется и с двумя парамет- 
рами: МОБЕ_м,т. В этом формате 
м обозначает номер окна, для ко- 
торого устанавливается размер 
шрифта т. 

Комбинируя названные выше 
операторы обработки шрифтов, 
напишем неболыную демонст- 
рационную программу: 

10 РАРЕК 1: МК 6: ВАСНТ 1: С5$ 
15 РОМТ_1: (ЕТ А$="Шрифты": СО $ЦВ 100 

20 РОМТ_2: 1ЕТ А$="”Рот": СО $ЦВ 100 

30 РОМТ_0: ЕТ А$="Роп": СО $0В 100 

40 МОБЕ_1: СО ТО 15 

100 РОВ М=1 ТО 4:МОБЕ_М: РЕМТ А$: РАМТ : РАЦЗЕ 40: МЕХТ М 
110 РЕТОЮМ 


Рис. 18. Шрифты МедаВазс. 


Обратите внимание, что для шрифта РОМТ_1 (кириллица) не 
выводятся уменыненные русские буквы в режиме МОБЕ_1. Это 
объясняется тем, что в этом режиме МедаВаз1с не генерирует 
символы, а пользуется содержащимся в нем специальным (четвер- 
тым) символьным набором (аналогичным применяемому в одном 
из популярных текстовых редакторов Та$\от4). 


МедаВаз1с предусматривает и альтернативный снособ управ- 
ления размерами символов. Оператор стандартного Бейсика 
РЮМТ СНЮ$ с параметрами 1...4 (не используемые ЗресНат- 
Бейсиком коды символов) производит то же действие, что и опера- 
тор МОГЕ. Еще один оператор 
МедаВа$1с, позволяющий достичь т0о- — |=-=`ЕЕЕЕЕ 
го же эффекта 


УЦ т 


— представляется уж совершенным 
излишеством. 


СТТРРЕЕ 5 
ЗТТРРЕЕ_6 
СТТРРЕЕ_7 
СТТРРЕЕ_15 


В сочетании с режимом РОМТ_4 мо- 
жет использоваться оператор 


$ИРРЕЕ 4 


— заштриховывающий символы 
(рис. 19). Плотность штриховки зада- 
ется параметром 4, рабочие значения 


Рис. 19. Варианты штриховки. 
которого лежат в пределах от 0 («ну- 
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левая» штриховка, символ не отличим от фона) до 15 (сплошное 
закраигивание). 

В арсенале МедаВаз1с есть еще два оператора, нестандартно 
выводящие тексты на экран. Это $РАМТ и РО\МИМ. 


$РЕМТ _х,у,и,у,а$ 


выводит символьную строку с 
увеличением в указанное 
число раз без привязки к зна- 
коместам, то есть начиная с 
произвольной точки экрана. 
Нараметры х и у задают коор- 
динаты в пикселях начальной 
(левой верхней) позиции вы- 
вода текста (за начало координат принимается в данном случае 
левый верхний угол экрана); чиу — масштаб увеличения символа 
по горизонтальной и вертикальной координатам (лробные зна- 
чения масштаба округляются до целых); а$ — строку символов, 
предназначенную для вывода на экран. 


ОО\М/М п,с,а$ 


тоже распечатывает на экране символь- 
ную строку, правда, без масшта- 
бирования и с привязкой не к точке, а к 
знакоместу, но зато вертикально — 
сверху вниз. Параметры п и с определя- 
ют координаты начальной позиции вы- 
вода (строка, столбец), аа$ — строковую 
переменную, предназначенную для вы- 
вода. 


Теперь существенное замечание. В 
операторах МедаВаз1с, имеющих отно- 
шение к выводу на экран текстовой информации, размер знако- 
мест (если не оговорено иное) считается равным не 8х8 пикселей, 
как в стандартном Бейсике, а 4х8*. Соответственно, строки 
отсчитываются от верха экрана по-прежнему с 0 по 23, а столбцы 
от левого края экрана, но не с 0 по 31, ас 0 по 63, то есть по 
половинке стандартного знакоместа. 


Следующая программа продемонстрирует возможности $РЮМТ и 
ООМиМ: 


10 РАРЕК 1: МК 6: ВЮЮНТ 1: СЕ$ :РОМТ_1: ТЕТ А$="Шрифт" 
100 РОК Ч=1 ТО 6: ВЕТ Х=(128—20*0): РОВ У=1 ТО 20 $ТЕР 2 
110 $РАМТ_Х,5,Ц,У,А$ 
115 МК 2:МОБЕ_4:ОО\УИМ_5,30,А$: МК 6 
120 РАФЪЗЕ 40: СЕ$ : МЕХТ У: МЕХТ Ц - 

130 ©О ТО 100 


* Это связано с возможностью МераВаз1с выводить символы размером 4х 8 точек. 
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ТЕКСТОВЫЕ ОКНА 


УИМРО\М\/, СОЮКВЕМТ, ЕХ, СЕМ 


Теперь самое время перейти к описанию возможностей 
МедаВаз1с по управлению текстовыми окнами. Сразу после за- 
грузки МедаВаз1с все окна, кроме окна встроенного в МедаВаз1с 
монитора-отладчика (о нем подробный разговор будет позже), сов- 
падают с основным экраном стандартного интерпретатора. 
МедаВаз1с позволяет одновременно оперировать десятью окнами. 


УИМОО\/ _п,с,В,9 


Оператор задает размеры окон. Параметры п (0...23) ис (0...63) 
устанавливают позицию левого верхнего угла окна, соответственно, 
по вертикали и горизонтали, а В (1...24) и д (1...64) — его размер 
(высоту и длину). Координаты задаются в знакоместах.. 

Оператор У/ИМОО\/ устанавливает размеры только текущего (ак- 
тивизированного в данный момент) окна. Окно номер м делает 
текущим оператор 


СУВВЕМТ _м 


Возможности оконного интерфейса МедаВаз1с продемонстри- 
руем на примере программы, которая выдает свой листинг в 
каждом из активизируемых по очереди окон: 


4 РАРЕК 1: (15$ 

5 РОК М=2 ТО 7: РАРЕК М—2: ИМК 9—М 

10 СУРКЕМТ_М:УИМОО\М\/_М,4*М,10,34:РХ_1 М 

20 СЁЕ\М/_М,1: РЕМ Оператор очистки окна (описан чуть ниже) 
25 МОБЕ_М,2 

30 $Т: 4$Т: Ы$Т: Ы$Т 

40 РАЦЗЕ 80: МЕХТ М 

50 ©О ТО 5 


Управление окнами (правда, не всеми} можно осуществлять и с 
помощью оператора РАМТ СН®$ с использованием кодов от 24 ло 
31, которые стандартный Бейсик оставил вакантными. При этом 
РЕИМТ СНЮ$ 24 устанавливает текущим окно номер 0, РАМТ СНЕ$ 25 
— окно 1-и далее до РАМТ СНК$ 31, который включает окно 7. Окна 
8 и 9 этим способом не управляются. 

Того же самого эффекта можно добиться, используя оператор 
УРУ_24...УБУ_31. 


Потенциальные возможности оператора 
ЕХ_1м 


еще ждут своего исследователя. В фирменном описании указыва- 
ется, что он служит для распределения потоков информации между 
окнами. Параметр 1! определяет вид выводимой информации: 0 — 
командная строка и сообщения об ошибках; 1 — листинг програм- 
мы; 2 — информация, генерируемая в процессе выполнения прог- 
раммы; 3 — встроенный монитор-отладчик МедаВаз1с. Параметр 
уу задает номер окна, в которое будет направляться информация из 
указанного потока (значения от 0 до 9). 
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Однако параметр ! оператора ЕХ может принимать не только 
значения от 0. до 3, но и 4, 5, 6. При этом параметр м может иметь 
значения вплоть до 66063! Это побочные, недокументированные 
режимы, о которых никакие руководства не упоминают. Потоки 
ГХ_4 и РХ_5 могут использоваться, вероятно, для управления пе- 
риферийными устройствами. Что касается ЕХ_6,\м, то в сочетании 
с рабочими значениями параметра \м от 0 ло 255 его действие 
аналогично РОКЕ 23609,\/, то есть он изменяет длительность звука, 
подтверждающего нажатие клавиши на клавиатуре. 


СЕМ [мт 


осуществляет очистку окна. Если пара- 
метр один (т), то действие оператора 
относится к текущему окну и значение 
этого параметра определяет способ, кото- 
рым будет реализована очистка окна: 


0 — заполнение окна цветом. фона 
(РАРЕК), аналогично действию опе- 
ратора СЕ$ 5реснит-Бейсика, но в 
пределах окна; 

1 -— производит то же действие, что и 
° СЁМ/_0, но с заполнением цветом 
тона (МК); 

2 — инвертирует изображение в окне 
(меняет цвет фона на цвет тона и 
наоборот); 

3 — заменяет все атрибуты текущего 
окна на постоянные. 

В случае двух параметров в операторе СЁМ/ первый (м) уста- 

навливает номер окна, к которому относится действие оператора. 
Например, оператор СЁЕ\М/_м,3 заменяет атрибуты окна с номером \м 
на атрибуты, установленные для текущего окна. Необходимо 
внимательно следить за тем, чтобы значение параметра \ не вы- 
ходило за разрешенные пределы (0...9). Иначе в лучшем случае 
программа прервется сообщением \ {оо 1агае, в худшем, но наибо- 
лее вероятном — зависнет. Зато второй параметр (он бывает и 
единственным) можно увеличивать хоть до миллиона, оеКЗЕНКУ 
любое значение свыше трех приравнивается трем. 


В заключение рассказа о текстовых окнах приведем эффектную 
программу с использованием операторов У/ИМОО\МУИ и СЕМИ, ими- 
тирующую постепенное раскрывание окна: 


5 РАРЕК 0: ИМК 5: ВЮЮНТ 1: РОМТ_1:МООЕ_4 
10 СЁ5: РОК М=1 ТО 10 
15 ЁЕТ $=10-—М: ВЕТ (=33—3*М: ВЕТ Н=2*М+1: ВЕТ М/=6*М 
20 УИМООУМ_$,Ё,Н, Уи: СЕМ 1 
30 МЕХТ М 
40 5ПРРЬЕ_(КМО*60): РАМТ АТ 9,15; 1ЧУЕЮЗЕ 1; РАРЕК 1;"ОКН О" 
50 РАЦЗЕ 80: СО ТО 10 
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АТРИБУТЫ 


ИЧУЕКТ, РАГЕ, $\УУАР, СНАМСЕ 


С одним из операторов, работающих с атрибутами экрана, мы 
уже встретились в предыдущем разделе. Это оператор СЕМИ, кото- 
рый позволяет очищать окно с заменой атрибутов. Похожие дей- 
ствия выполняют и некоторые другие операторы, предусматри- 
вающие, наряду с выполнением своей основной функции, моди- 
фикацию атрибутов: $СКОШЕ, РАМ, СЕТ, РОТ. Эти операторы булут 
рассмотрены в тех разделах описания, где речь пойдет об их 
основном назначении. Сейчас же остановимся на операторах 
МедаВаз1с, занимающихся исключительно обработкой атрибутов: 
ЧУЕКТ, РАБЕ, СНАМСЕ и $\У/АР. Сразу отметим, что действие всех 
перечисленных операторов распространяется на весь экран, то 
есть они игнорируют деление экрана на окна. 


МУЕЮТ 


инвертирует изображение на экране, заменяя цвет фона на цвет 
тона и наоборот. Используется без параметров. 


Применение оператора 
РАОЕ_а 


несколько сложнее, но зато действие его гораздо эффектнее. Этот. 
оператор имеет один параметр, который задает значение байта 
атрибутов. Оператор просматривает значения всех атрибутов эк- 
рана* и уменышает на единицу те из них, 
которые не совпадают са. Операция выпол- 
няется циклически до тех пор, пока все зна- 
чения атрибутов не сравняются с а. Эта 
процедура вызывает появление на экране 
довольно интересных цветовых эффектов. 

Рабочее значение параметра а может на- 
ходиться в пределах от 0 до 255, но опера- 
тор РАГОЕ «проглатывает» и любые другие 
числа, реагируя при этом только на остаток 
от их деления на 256. 


Операторы СНАМСЕ_а!‚,а2 и $\М/АР_а2,а! 
также осуществляют замену атрибутов, но 
используют по: два параметра, каждый из 
которых. представляет собой значение 
атрибута. 

Оператор 

$\АР_а4,а2_ 


служит для замены атрибута.-а2 атрибутом 
а1: находит на экране знакоместа с атрибу- 
тами, равными. значению: параметра 22, и уху 


* Система построения числовых значений р в есть не отличается от 


‚принятой в Зресгит-Бейсике (см. стр: 55). 
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устанавливает в них новые атрибуты, соответствующие значению 
параметра а!. Скажем, $УМ/АР_ВМ 00000001 ВМ 10000001* включит 
РЕАЗН в тех знакоместах экрана, в которых изображение состоит из 
синих точек на черном фоне. 


Оператор 
СНАМСЕ _а1,а2 


производит поиск и замену сразу нескольких атрибутов. Работает 
СНАМСЕ следующим, довольно нетривиальным, образом. Он изме- 
няет по всему экрану те биты атрибутов, которые не совпадают в 
параметрах а! и а2. Так, если воспользоваться теми же значениями 
параметров, что и в приведенном выше примере с оператором 
УМАР, то есть выполнить СНАМСЕ_ВИМ 00000001 ‚ВМ 10000001, то РЕАЗН 
включится по всему экрану. Зато если потребуется, к примеру, 
‘перекрасить желтым цветом все, что изображено синим, красным 
или фиолетовым, независимо от фона, то эту задачу можно ре- 
шить, введя СНАМСЕ_ВМ 00000011,В!М 00000110. Из операторов $\М/АР 
пришлось бы в этом случае составлять длинную цепочку, учитыва- 
ющую все варианты фона. 


КАДРЫ 


СЕТ, РОТ, РОТ 


МедаВаз1с позволяет копировать часть экранного изображения 
(которую мы будем называть кадром) в свободную область памяти 
(лалее именуемую буфером) и возвращать кадр в прежнем или 
измененном виде на старое или новое место экрана. 


Кадр копируется в буфер оператором 
СЕТ _т, 5, п,с,В,9 

— а возвращается на экран оператором 
РОТ _т, т, п,с,В,9 


Форматы операторов СЕТ и РОТ, в принципе, схожи. 

Параметр т (0...6) залает принцип, по которому кадр совмеща- 
ется с изображением в буфере (СЕТ) или на экране (РОТ). При т=0 
копируемое изображение заменяет собой предылущее. При т=1 
происходит логическое сложение (ОК) старого и нового содер- 
жимого; при т=2 или 3 сложение осуществляется по принципу 
«исключающего ИЛИ» (ХОБ). Операции, производимые при пт=4, 
5 и 6, аналогичны операциям при т=0, 1 или 2, но с той лишь 
разницей, что при копировании знакоместам в кадре присваива- 
ются текущие постоянные атрибуты. 

Параметр т в операторе. СЕТ обычно устанавливают равным 
нулю (иные значения в фирменном руководстве даже не упомина- 
ются). Олнако ненулевое значение тм может пригодиться, если 


Рекомендуем задавать значения атрибутов в двоичной форме — это более на- 
ГЛЯДНО. 
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нужно совместить в памяти изображения двух или более кадров. 
Нужно соблюдать только одно условие’ — кадры должны быть 
одинакового размера. 

Второй параметр (2) в операторах СЕТ и РОТ устанавливает 
начальный адрес буфера, с которым взаимодействует выделенный 
кадр. Нужно следить. чтобы буферы не перекрывались и, естест- 
венно, не «наезжали» на коды МедаВазс, то есть не оказывались 
выше адреса 45000. 

Остальные четыре параметра задают координаты и размеры 
кадра в «нормальных» знакоместах — 8х8 пикселей; начало ко- 
ординат — левый верхний угол экрана. Параметры п и с указыва- 
ют, соответственно, вертикальную и горизонтальную координаты 
верхнего левого угла кадра. Параметры В и д определяют высоту и 
нгирину кадра. К их значениям в операторе РОТ предъявляется 
жесткое требование — они должны в точности совпадать со зна- 
‘<ниями параметров НВ и 3, использованными предшествующим 
оператором СЕТ, иначе возникнут искажения изображения. 

Несколько слов о рабочих и допустимых значениях параметров. 
Рабочими значениями параметра т являются целые числа от 0 до 
6. Но и любые другие значения не приводят к опгибке, так как 
МедаВаз1с использует только 4 младших бита двоичного представ- 
ления целой части параметра. 

следующий параметр — адрес буфера 2 — должен указывать на 
свободную область памяти. Его рабочие значения обсуждались 
чуть раньше. Произвольные значения также принимаются опера- 
торами СЕТ и РУТ и пересчитываются к приемлемым для 
/.Х 5ресиит значениям адресов. Олнако трудно предположить, где 
окажется буфер, если указать, к примеру, восьмизначный адрес. 

Рабочие значения остальных четырех параметров операторов 
СЕТ и РУТ должны быть такими, чтобы весь кадр попадал в пределы 
экрана. Допустимые значения вертикальной коорлинаты совпада- 
ют с рабочими, а горизонтальной позволяют однократный переход 
правой части кадра, не поместивигегося целиком на экране, на ле- 
вую сторону экрана. Нулевых значений высоты и ширины кадра 
операторы СЕТ и РУТ не любят (вплоть до зависания программы). 


Прежде чем приступить к использованию оператора СЕТ, нужно 
зарезервировать с помощью СЁЕАК участок памяти пол буфер. Сле- 
лать это можно и «с запасом», но в принципе минимальный необ- 
ходимый объем памяти для буфера (в байтах} легко рассчитывается. 
Он равен 9-кратному произведению ширины на высоту кадра, вы- 
раженных в «старых» знакоместах (8х8 точек). 


Пример работы с операторами СЕТ и РОТ, несмотря‘на свое 
шутливое содержание, на самом деле представляет собой весьма 
практичную подпрограмму вызова оверлейного меню: 


10 СТЕАК 29999:РОМТ_1:СУВЮЕМТ_4: РАРЕК 0: ИМК 0:СЬ\\/_4,0: ЕТ 
=4: ГЕТ $=4: ЕТ Н=12: ВЕТ ©=24:МИМООХ\И_1,5*2,Н,С*2. 
20 МООБЕ_2: РЕМТ РАРЕК 0; ИМК О;АТ 1,16; "МЕНЮ" '' 


"На закуску — Селедочка" '’ "На первое — Щи с грибами" ' 
"На второе — Бифштекс по-деревенски" ' 
"На третье — Бланманже” '' "Напитки в ассортименте” 


30 РАРЕК 7:СЕТ_4,30000,1,5,Н, С 
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40 СОВВЕМТ_2:МОРЕ_4:$'ПРРЕЕ_10: РОК М=1 ТО 30: РЕММТ МК 
` (1+РМОж6); "Уже несут меню!": МЕХТ М 

50 ВЕТ 11=1+®МО+4: ЕТ $1=1+®ЮМО*4:СЕТ_0,35200,11,51,Н,С© 

60 РИТ_0,30000,11,$1,Н,/С: РАЦЗЕ 500 

70 РОТ_0,35200,11,51,Н,© 

80 РАЦЗЕ 120: ©О ТО 40 


В МедаВазс существует еще 
один оператор ($РОТ), который как 
и РУТ, переносит кадр из буфера на 
экран. Но делает он это с изме- 
нением масштаба. Оператор 5$РОТ 
тянет за собой рекордное количест- 
во параметров — целых семь: 


ЗРИТ _т,х,у,м.у, ЗП 


Некоторые из параметров совпа- 
дают с параметрами операторов 
СЕТ и РУТ, другие напоминают 
параметры $РАМТ (см. стр. 208). 
Первый параметр (2) указывает ад- 
рес буфера. Параметры х иу зада- 
ют координаты ‘размещения верх- 
него левого угла кадра на экране. Координаты указываются не в 
знакоместах, как для предшествующего оператора СЕТ, ав пиксе- 
лях (за начало координат принимается верхний левый угол экра- 
на). Следующие два параметра оператора $РОТ (и и у) определяют 
масштабы увеличения выводимого изображения, соответственно, 
по горизонтали и вертикали. Наконец, параметры ч и В, как и в 
операторах СЕТ и РУТ, определяют размер (высоту и длину) исход- 
ного кадра. Но в операторе $РОТ они задаются необычным образом: 
в то время как 3 указывается в знакоместах, В задается в пикселях, 
то есть в 8. раз превышает значение, подставленноев предшеству- 
ющий оператор СЕТ. Оператор $РОТ всегда выводит изображение в 
постоянных атрибутах, то есть так, как если бы в операторе РОТ 
использовался режим т=4. 


СПРАЙТЫ 
$РЕОЕЕ, $РВОМ 


Существенным преимуществом системы управления спрайта- 
ми МедаВаз1с по сравнению, скажем, со специализированным 
пакетом Газег Ваз1с является обеспечение независимости движе- 
ния спрайтов от работы основной программы. Спрайты обрабаты- 
ваются в фоновом режиме (с использованием прерываний), а 
основная программа продолжает выполняться своим чередом. 

МедаВаз1<с способен передвигать одновременно восемь спрай- 
тов. Кроме того, каждый спрайт может содержать набор фазовых 
картинок или просто фаз (до 255), которые в процессе движения 
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спрайта чередуются, создавая - 
эффект мультипликации. Это 
еще одна особенность систе- 
мы управления спрайтами в 
МедаВаз1с. Конечно, возмож- 
ность одновременной обра- 
ботки столь большого количе- 
ства спрайтов и их фаз чисто 
теоретическая, поскольку Аля 
размещения такой уймы 
картинок потребовалось бы 
72 килобайта свободной 
памяти. Но, по крайней мере, 
один-два «полных» (то есть 
включающих 235 фаз) 
спрайта, занимающих по 9 
килобайт, запустить можно. Замечено, что не все 5реснат-сов- 
местимые машины отечественной сборки успешно справляются с 
одновременной обработкой болыного (свыше четырех) числа 
спрайтов, независимо от числа фаз. - 


Управление спрайтами происходит через ячейки памяти, назы- 
ваемые системными переменными спрайтов. Записывая в них тре- 
буемые значения, можно задавать направление и скорость 
движения спрайтов, менять количество фаз и частоту их смены и 
т. д. Перемещение спрайтов происходит дискретно. Направление и 
скорость движения задается величиной шага (в пикселях) и часто- 
той следования шагов. Движение спрайтов и смена их фаз. — два 
не зависимых друг от друга и от основной программы процесса. 


По замыслу создателя МедаВаз1с Майка Лимана, в один пакет с 
ним должна входить программа $ргИе Без! дпег, формирующая не 
только изображения спрайтов, но и, что особенно ценно, файл 
системных переменных спрайтов. К сожалению, несмотря на ши- 
рокое распространение различных версий МедаВаз1с, у нас в 
стране обнаружилось пренебрежение этой программой. Поэтому 
пришлось отказаться от запланированного описания работы со 
эзргце Резюдпег. Тем не менее, той информации, которая при- 
водится ниже, а также примера в конце этого раздела, будет вполне 
достаточно для овладения довольно сложной системой управления 
снрайтами в МедаВаз1с. 


МедаВаз1с предусматривает использование спрайтов только од- 
ного размера: 16х16 пикселей, то есть 2х2 знакоместа. Это, конеч- 
но, минус по сравнению с Газег Ваз1с. Однако при необходимости 
можно попытаться параллельно запустить несколько спрайтов, со- 
ставляющих части одной картинки. 

Нетрудно подсчитать, что изображение спрайта, точнее, одной 
его фазы, размером 2х2 знакоместа займет в памяти, включая атри- 
буты, 36 байт. Объем памяти, необходимый для размещения всех 
нужных спрайтов, также легко вычисляется умножением общего 
числа фаз всех спрайтов на 36. Соответствующее место необходимо 
зарезервировать в памяти с помощью оператора СЁЕЕАК. 
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Каким же образом можно создавать спрайты, не располагая 
программой 5ртие Оез19пег? Для начала нужно нарисовать все 
фазы одного спрайта в каком-либо графическом редакторе и 
записать экранный файл. На экране помещаются 192 фазы, этого 
в большинстве случаев вполне достаточно. Если мы располагаем 
картинкой с изображениями фаз, то дальнейшее превращение ее 
в полноценный спрайт, который может обрабатываться МедаВаз1с, 
не составит труда. Это позволяет сделать оператор СЕТ (см. 
стр. 212). Он предназначен для записи в память изображения 
кадра, но применим и для записи спрайтов, поскольку формат 
хранения в памяти кадров и спрайтов совершенно одинаков. 

Следующая программа поясняет технологию формирования 
спрайтов на примере двух спрайтов, кажлый из которых состоит из 
48 фаз*: 

10 СЕЕАК 41535: РОВ М=0 ТО 5: РОВ М=1 ТО 16 

20 РЕМТ АТ М*2,М*4—4; №+16*М 

30 МЕХТ М: МЕХТ М: КЕМ Формирование экранного файла 

40 9М О(96,3) 

50 РОК Е=1 ТО 96: ВЕТ О(Е,1)=2*(Е-1): Е ОЕ, 1)>=32 ТНЕМ ЕТ 
О(Е,1)=@(Е,1)—32ж1МТ ((1-—1)/16): КЕМ Гориз. координата 

60 ЕТ О(Е,2)=2ж=МТ ((Е-—1)/16): РЕМ Верт. координата 

70 ТЕТ О(Е,3)=41500+36+-: КЕМ Адрес размещения фазы 

80 СЕТ_0,О(Е,3),О(Е,2), (Е, 1),2,2: ВЕМ Запись фазы в память 

90 МЕХТ Ь 

100 $АУЕ "5РЕПЕ$" СОБЕ 41536,96*36: КЕМ Сохранение спрайтов 


В этом примере сначала формируется экранный файл с изобра- 
жениями фаз спрайтов, представляющими собой пронумерован- 
ные квадратики (для спрайта 0 — с номера 1 по 48, для спрайта 1 
— с номера 49 по 96}. Затем фазовые картинки оператором СЕТ 
последовательно снимаются с экрана и помещаются в память. 


МедаВа$1с располагает двумя операторами, которые управляют 
спрайтами: $РКОМ и $РКОЕЕ (хотя достаточно только первого, как 
выяснится из дальнейшего описания). 


5РКОМ $, т 
запускает движение спрайта. Параметр $ указывает номер спрайта 
(от 0 ло 7), м — принцип вывода (т=1 — изображение спрайта 


накладывается на содержимое экрана по принципу ОК; т=2 и 
более — по принципу ХОК). Попытка запуска спрайта с номером, 
выходящим за пределы 0...7, чревата сбоем программы. 


Как уже было упомянуто, спрайты в МедаВаз1с движутся не- 
зависимо от выполнения основной программы. То есть запущен- 
ный оператором $РКОМ спрайт будет продолжать движение, прелд- 
писанное ему системными переменными спрайта (о них ниже), 
одновременно с работой операторов, слелдующих за $РЮОМ. Оста- 
новка произойдет только на время выполнения операций с маг- 
нитофоном. Значения системных переменных можно корректи- 


* 
При необходимости нетрудно написать и специальную программу для форми- 


рования спрайтов, аналогичную программе $ргцег, приведенной для Газег Ваз{с. 
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ровать, на что мгновенно будет реагировать спрайт (менять ско- 
рость, направление движения и т. д.). 


Выполнение оператора 
$РВОЕЕ $ 


остановит движение спрайта с номером $. Естественно, все спрай- 
ты остановятся и с прекращением выполнения программы. 

Инструкция $РКОМ_$,0 также прекращает вывод спрайта с номе- 
ром $, и, следовательно, ЗРКОЕЕ можно считать лишним. Оператор 
$РКОМ_5$,255 прекращает вывод не только спрайта $, но и всех 
спрайтов с номерами, большими $. $РЮОМ_0,255 вообще останав- 
ливает работу со спрайтами. 


Но, как уже говорились, для оперирования спрайтами недоста- 
точно иметь их изображения и использовать операторы $РКОМ и 
$РКОЕЁЕ. Необходимо еще должным образом установить системные 
переменные спрайтов. 

С каждым спрайтом связана своя область системных перемен- 
ных размером 18 байт внутри тела самого МедаВаз1с. Эта область 
начинается с адреса 56750 для спрайта с номером 0 и простирает- 
ся до 56893 для спрайта 7. 

Приведем назначение и адреса системных переменных отно- 
сительно адреса а начала области переменных каждого спрайта: 


а+0 — значение параметра т, фигурирующего в операторе $РРОМ 
и обозначающего способ вывода спрайта $. Выполнение 
оператора РОКЕ а,т аналогично действию $РКОМ_$,т; 


а+1 — текущая горизонтальная координата (от 0 до 255) позиции 
вывода спрайта; 
а+2 — текущая вертикальная координата (от 0 до 175). Занесение 


по этому адресу значения, большего 175, может привести 
к сбою. Выполнив РОКЕ а+1‚,х: РОКЕ а+2,у, можно задать 
начальную позицию вывода спрайта; 


а+3 — размеры шага (в пикселях) при перемещении спрайта, 

а+4 соответственно, по координатам х и у, то есть значения, на. 
которые увеличивается содержимое переменных а+1 и а+2 
за один шаг. Если ячейки а+3 и а+4 содержат нули, спрайт 
будет стоять на месте, только меняя фазы. Заносимые в 
ячейки а+3 и а+4 числа от 0 до 127 придают спрайту 
движение, соответственно, слева направо и сверху вниз. 
Числа 128...255 — движение в обратном направлении (255 
— минимальная скорость, 128 — максимальная). Не реко- 
мендуется использовать максимальные значения перемен- 
ных а+3 и а+4, лучше ограничиваться приращениями не 
более 30 пикселей; 


а+5 — частота шагов. Чем болыне содержимое этой ячейки, тем 
быстрее движется спрайт (при прочих равных условиях}; 
а+6 — внутренняя системная переменная, связанная с шагом; 
а+7 — число фаз спрайта (ло 255). Значение должно точно отве- 


чать замыслу, иначе возможен пропуск фаз или вывод 
непредусмотренных изображений; 


а+8 — текущая переменная, указывающая номер’ выводимой в 
данный момент фазы; 
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а+9 — частота смены фаз. Чем больше ‘содержимое этой`ячейки, 
тем быстрее меняются фазы; 


а+10 — внутреныяя системная переменная, связанная с частотой 
смены фаз; 


а+11 двухбайтовое число, указывающее адрес начала разме- 
а+12 щения в памяти первой фазы спрайта; 


а+13 — внутренняя системная переменная; 
а+14 — внутренняя системная переменная; 


а+15 — числовое значение атрибута, которым закрангивается след, 
оставляемый спрайтом; 


а+16 — не используется; 


а+17 — конец области системных переменных данного спрайта, 
всегда содержит единицу. 


После подбора параметров движения спрайтов, можно со- 
хранить системные переменные на ленте оператором 


ЗАУЕ "5$РЮ.5у$"СОБЕ 56750,144 


Выяснив назначение системных переменных, ‘попробуем за- 
пустить два спрайта, сформированные программой, приведенной 
на стр. 216. Добавим в нее слелующие строки и запустим*: 


200 "ЕТ $0=41536: ВЕТ $1=43264: РЕМ Адреса размещения спрайтов 

210 ЕЕТ а0=56750: ЕТ а1=56750+18: КЕМ Адреса начала системных 
переменных спрайтов 

220 РОКЕ а0+7,48: КЕМ Задание числа фаз ен 0 

230 РОКЕ а0+15,6 

240 РОК п=0 ТО 17: РОКЕ а! +п, РЕЕК (а0+п): ЕХТ п 

250 ООКЕ_а0+11,$0: РЕМ Задание адреса спрайта 0 

260 ООКЕ_а!+11,51: КЕМ Задание рАреса спрайта 1 

270 РОКЕ а1+1,0: РОКЕ а1+2,40 

280 СЕ: $РКОМ_0,2: $РВОМ_1,2: РАЦЗ$Е 0: КЕМ Запуск спрайтов 

290 $РКОМ_0,255:$РЮОМ_1 ‚255: КЕМ Прекращение вывода спрайтов 


Для спрайта с номером 0 почти все системные переменные 
устанавливаются при инициализации МедаВаз!с. Поэтому для на- 
чала работы с этим спрайтом достаточно задать значения только 
трех переменных. Это переменная а+7 (количество фаз в спрайте, 
в данном случае — 48 для обоих спрайтов), длвухбайтовая перемен- 
ная а+11, а+12 (адрес первой фазы спрайта) и переменная а+15 
(атрибут закраски следа от спрайта). Значения системных пере- 
менных спрайта номер 1! копируются из области переменных 
спрайта 0 (строка 240). Затем в строке 260 задается адрес спрайта 
1, ав строке 270 — его начальные координаты. 


В программе использован оператор МераВаз1с ООКЕ — двухбайтовый аналог 
РОКЕ ее стр. 226}. 
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СКРОЛЛИНГ 


- 5СВОЦ, РАМ, $СКОЕЁЕ\МИ, РАММУ/ 


Аля того чтобы закончить онисание средств МедаВаз1с, слу- 
жащих для обработки изображений, кратко расскажем об операто- 
рах скроллинга $СКОЦ, $СКОБЁУУ, РАМ и РАМУУ. 


Все четыре названных оператора прокручивают изображение в 
текущем окне: $5СКОЦ. и 5СКОЦЁУМИ по вертикали, а РАМ и РАМУ по го- 
ризонтали. Операторы $5СКОЁЁ и РАМ реализуют обычный скрол- 
линг, в результате выполнения которого изображение, ушедшее за 
пределы окна, теряется. Операторы $СКОЕЁ\М/ и РАМ\У/ при смеще- 
нии изображения возвращают его ушедигую часть с противополож- 
ной стороны окна, то есть обеспечивают циклический скроллинг. 


В операторах 


$СВОН. т,у 
РАМ _т,х 


параметр т определяет способ закрашивания освобождающегося 
при скроллинге поля. Если значение т четно, то закрангивание 
осуществляется цветом фона, установленным для данного окна, 
нечетно — цветом тона. Нараметры х и у задают величину и 
направление смещения изображения в пикселях по соответствую- 
щей коорлинате. 


5СвОН\ у 
РАМУ! _х 


имеют по одному параметру, которые по смыслу совпадают со 
вторыми параметрами операторов $СКОЁЁ и РАМ. 

Значения параметров х'и у могут быть произвольными, исполь- 
зуется только остаток от их деления на 256. Максимальное сме- 
щение происходит при значениях х или у, равных нулю, 
минимальное — когда х или у равны единице. При положительных 
значениях параметров скроллинг идет вверх и вправо, при отрица- 
тельном — вниз и влево. 


Применение операторов скроллинга достаточно очевидно из 
примера: 


10 РАРЕКЮ 5: ИМК 1: СЕ$ 
100 СОККЕМТ_4:У/МОО\У_6,18,12,28: РАРЕЮ 6: МК 2:МОБЕ_4 
105 СЕМИ_1: РАМТ "5СВОЦ. " 
110 РАЦЗЕ 10:5СВОЦ-_1,—80: РЕМ Обычный верт. скроллинг 
120 СЕМ/_1: РАМТ "$СКОБЕУИ" — 
130 РАФЗЕ 10:5СКОБЕМ_128:$5СКОГЕУУ_—128: КЕМ Циклический 
верт. скроллинг 
140 СЕМ/_1Т: РАМТ "РАМ " 
150 РАЦЗЕ 10:РАМ_0,128: РЕМ Обычный гориз. скроллинг 
160 СЁЕМ/_1: РАМТ "РАМУИ ": КЕМ Циклический гориз. скроллинг 
170 РАЦЗЕ 10:РАМ\У\/_.128:РАМУ\У/_—128 
180 $ТОР 
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ЗВУК 


РЬЕАУ, 5ОЧМО, $ОМ, $КЕР, $ОРЕ 


Дополнительные звуковые возможности МедчаВаз1с реализуют- 
ся двумя операторами: РЕАУ и $ОЧМО. Совместно с $ОУМО работают 
операторы $ОМ, $ВЕР и $ОЕЁЕ, играющие роль переключателей. 


Оператор РЕАУ воспроизводит заданные звуки непосредственно 
в момент своего выполнения интерпретатором МедаВазс. При 
этом, естественно, выполнение каких-либо других операторов воз- 
можно лишь после завершения действий, предписанных РЁЕАУ 
(аналогично оператору ВЕЕР 5респат-Бейсика). 

Иначе работает оператор 5ОУМО. Он лишь закладывает в спе- 
циальный «звуковой буфер» данные, необходимые для воспроиз- 
ведения звука, а «спусковым крючком» служит оператор $ОМ, 
запускающий отработку данных. В этом случае на фоне вос- 
производимого звука возможно продолжение хола программы 
(работа в среде так называемого «генератора звука на преры- 
ваниях»). 

Прежде чем рассматривать назначение параметров, входящих в 
операторы РЕАУ и $ОУМО, слелаем несколько общих оговорок. Во- 
первых, высота звука указывается не в герцах или нотах той или 
иной октавы, а в условных единицах в интервале от 1 ло 256. При 
выходе значений за эти пределы учитывается только остаток от 
деления на 256. Во-вторых, длительность звучания ноты задается 
не в единицах времени, а просто количеством звуковых коле- 
баний, поэтому при прочих равных условиях более высокие звуки 
оказываются короче. 

Отдельно работающие операторы РЕАУ и $ОУМО не позволяют 
составлять музыкальные фразы, основное их назначение — гене- 
рация разнообразных звуковых эффектов. 


Операторы РЬАУ и $ОУМО используют по пять параметров: 
РЕАУ т,5,1,г,ч[,г,Ч...] 
$ОУМО а, т,а,г,п 


Сначала рассмотрим параметры, которые в обоих операторах 
имеют одинаковый смысл, и, естественно, обозначены одинако- 
ВЫМИ буквами, хотя они и стоят на разных позициях: 


т — «качество» звука: 0 — чистый тон, ненулевое значение — 
шум; 
г — число шагов изменения частоты в пределах одного цикла 


звучания. В операторе РЕАУ значение этого параметра мо- 
жет быть сколь угодно большим, а в операторе $ОУМР только 
от 1 до 256. Поскольку действие оператора РЕАУ не удается 
прекратить даже командами МедаВаз$1с Е5САРЕ ($расе/Е) и 
ВЕЗЕТ (Зрасе/К), то в случае «перебора» значения параметра 
г в операторе РЕАУ проще перезагрузить МедаВазс, чем 
дожидаться окончания трелей; 


4 — смещение частоты от шага к шагу в условных единицах 
(1...256). Значения параметра от 1 до 127 соответствуют 


ЗВУК 


повышению частоты, а от 129 до 256 — понижению. При 
а=0 или а=128 высота звука не меняется. 
Можно помещать в один оператор РЕАУ несколько пар парамет- 
ров г и а с разными значениями, что позволяет разнообразить 
звук. Например: 


РЕАУ_0,10,1000,10,10,20,20 


Следующие Ава параметра используются только в операторе 
РЬАУ: 


$ — темп звучания. Ни в одной из версий МедаВаз1с не удалось 
заметить, что значение этого параметра как-то влияет на 
работу РЕА\; 

{ — начальная частота звука (1...256)*. 


В операторе $ОУМО тоже имеются два параметра, которым нет 
аналогов в РЬА\: 


а — способ заполнения звукового буфера: при а=0 данные в 
буфере заменяются, а при ненулевом значении параметра 
добавляются к содержимому буфера. Звуковой буфер опе- 
ратора $ОУЧМО довольно емкий, но не «резиновый». При его 
переполнении возможен сбой программы, поэтому следует 
помнить, что 5ОУМО с нулевым параметром а очищает 
буфер; 

п — число повторений (1...256) циклов, заданных параметром г. 


Как уже говорилось, генерация звука, «заложенного» в буфер 
оператором $ОУМО, запускается оператором 


50 


Вспомогательный оператор 
5КЕР т 


обычно «ходит в паре» с оператором $ОМ. Инструкция $ВЕР_0 задает 
однократное воспроизведение последовательности звуков из буфе- 
ра, а ненулевое значение т приводит к циклическому повторению 
звукового эффекта, прервать которое можно только оператором 


5$ОЕЕ 
Естественно, звук прерывается также при остановке программы. 


Использование всех пяти операторов МедаВаз1с, управляющих 
звуком, иллюстрируется слелующим примером: 


10 (ЕТ т=0 

15 ©О 55В 2000 

20 $ОМ: РАЦЗЕ 50: ©О $0В 1000 

30 $ОРР: ВЕТ м=МОТ т: ©О ТО 15 
1000 РЕАУ_0,10,1000,10,10: РЕТУЮМ: РЕМ Музыка 
2000 $О9МО_1,т,100,5,5:5РЕР_1: РЕТУЮМ: КЕМ Шум 


Как ни странно, но в операторе $ОУЮО не задается начальная частота звука, что, 
впрочем, компенсируется очень быстрым развитием звукового эффекта. 


221 


МЕСАВАЗС 


СТРУКТУРНОЕ ПРОГРАММИРОВАНИЕ 


ЕМОРЮКОС, ВКАМСН, МТАЗК, РСЬЕАК, КЕРЕАТ, ЧМТ, РОР, РОЗН, 
КЕЗТАКТ, ВКОРЕ, ВКОМ 


Название этого раздела — «Структурное программирование», 
несколько условно, поскольку его рамки шире. Здесь собраны все 
средства МедаВаз1с, так или иначе служащие для придания прог- 
раммам внутреннего совершенства (впрочем, не всегла явно обна- 
руживаемого в процессе их выполнения). 

Как почти все диалекты Бейсика для 7/Х 5реснит, МедаВаз1с 
располагает инструментом процедур (см. также стр. 176, 260). 
Правда, это не совсем «честные» процедуры, поскольку параметры 
их не являются локальными. Из этого следует, что использование 
одних и тех же переменных в процедуре и в основной программе 
может привести к недоразумениям. 

Аля оформления какого-либо блока программы в виде процеду- 
ры необходимо задать ее начало (заголовок} и конец. Это делается 
посредством двух операторов: 


@<имя программы>_[<список формальных параметров>] 
в начале процедуры* и 
ЕМОРКОС <имя процедуры> 


в конце. 

Имя процедуры в операторе ЕМОРЮОС в случаях, исключающих 
двусмысленность, может опускаться. 

В заголовке процедуры после символа подчеркивания 
приводится перечень формальных параметров, с которыми над- 
лежит работать процедуре. Ими могут быть числовые и строковые 
переменные. 

Вызов процедуры может осуществляться только из основной 
программы** указанием имени процедуры и, через символ под- 
черкивания, списка фактических параметров, то есть значений 
всех переменных, упомянутых в заголовке процедуры: 


<имя-процедуры>_<список фактических параметров> 


Фактические параметры могут быть только конкретными зна- 
чениями (не: переменными). 

Имя процедуры может иметь произвольную длину и состоять из 
любых символов (кроме псевдографики, ООС и пробелов}, 
начинаться должно обязательно с буквы. Длина имени ограничена 
лишь представлениями программиста об удобстве. В качестве 
имен процедур. нельзя использовать ключевые слова МедаВаз!с и 
зреснит-Бейсика. 

Приведем пример использования процедур: 


5 СЕ$ 
-10- 7_-5,Ю®МО*16,ЮМОж12,52,1,12,5,1,"Первый прогон": КЕМ == 


процедуры 


-@— АЗСНесимвол к кодом 64.. - == 
** Попытка вызова процедуры ввиде кв команды чревата арене 
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30 2_6,РМО*16,ЮМО*20,44,2,14,6,2,"5$есопЯ гип” 
40 СО ТО 10 — | 
1000 @7_\М/,С,С,Е,5,РР.И,А$: РЕМ Заголовок процедуры. 
1010 СУРРЕМТ_\УУ:МИМООМ/_С1,8,С: МОБЕ_4:РЕОМТ_Е:$ПРРЕЕ_ $ 
1020 ВЮАСНТ 1: РАРЕЮ РР: МК Н:СЁЕМ/_\,0 
1040 РАМТ А$: РАЦЗЕ 40 
1050 $СВОЁЁ_1,—64 
1100 ЕМОРКОС: КЕМ Конец процедуры 


Здесь процедура Е имеет 9 параметров и выполняется цикли- 
чески, причем два параметра, определяющие положение окна, 
каждый раз меняют свои значения случайным образом. 


Новые возможности в оперировании подпрограммами открыва- 
ют два схожих по действию оператора ВКАМСН и МТАЖК. 


Оператор 
ВРАМСН п 


после каждой следующей за ним строки программы навязывает 
выполнение подпрограммы, расположенной со строки с номером 
п. Выглядит это так, как будто к каждой строке программы до- 
весили через двоеточие оператор СО $08 п. Только подпрограмма, 
на которую ссылается ВКАМСН, должна завершаться оператором 
ЕМОРКОС (без имени процедуры), а не РЕТОЮКМ. Прекращается это 
построчное «прыгание» после появления в программе оператора 
ВКАМСН_ 0. Использование оператора ВРАМСН проиллюстрировано в 
программе, которая рассчитывает длину магнитной ленты, необ- 
ходимую для заданного времени записи: 


20 СЬ5 
200 СОККЕМТ_6:У/МОО\/_4,0,8,30: РАРЕК 5: ИМК 1:СЕ\М/_0 
205 РОМТ_1:МОРБЕ_2 
210 РАМТ МК 1;"ВРЕМЯ" ' "ВОСПРОИЗВЕДЕНИЯ": МОРЕ _3З 
215 СОЮКЕМТ_7:М/ИМОО\/_4,34,8,30: РАРЕВ 6:СЕ\М/_0 
220 РОМТ_1:МОБЕ_2: РАМТ МК 4;"ДЛИНА ЛЕНТЫ": МОФГЕ__3 
230 ВКАМСН_400: МРОТ "МИНУТ ";М;"СЕКУНД";5: ГЕТ А$=$ТЮ$ 
М+" ' "+5ТВ$ $+" " " ";СУЮРВЕМТ_6 
240 -ЕТ Т=М*60+5: ВЕТ 1=Тж.1905: ЕТ А$=$ТЮ$ МТ 
Е-+" м”: СУВВЕМТ_7: СО ТО 230 
400 РАМТ АТ 3,8; МК 2;А$;"” “ 
410 ЕМОРКОС 


Оператор 
МТАЗК п 


после каждой строки основ- 
ной программы отсылает 
компьютер к подпрограмме 
(начало подпрограммы за- 
дается параметром п). Но 
при каждой отсылке выпол- 
няется не вся подпрограм- 
ма, а лишь одна очередная 
ее строка. Получается эф- 
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фект параллельного выполнения двух программ (основной и подп- 
рограммы): строка из программы — строка из подпрограммы, и 
так до появления оператора МТАФЗК_ 0. 

Операторы ВРАМСН и МТА$К являются взаимоисключающими, 
иначе говоря, не могут работать одновременно. Причем МТАЗК 
имеет более высокий приоритет, то есть работать будет именно он 
при попытке одновременного запуска обоих операторов. 


В сочетании с процедурами бывает необходимо использовать 
еще один оператор: 


РСТЕАЮ 


Для того чтобы объяснить его назначение, нужно сначала ска- 
зать о внутреннем стеке МедаВаз1с. Стек обслуживает ветвление 
программ средствами МедаВазс: при входе в процедуры, при 
выполнении операторов ВРАМСН и МТАЗК, а также при выполнении 
цикла КЕРЕАТ...ОМТЁ (о нем — дальше). В стеке запоминаются 
номер строки и номер оператора в ней, к выполнению которого 
нужно вернуться после завершения процедуры, подпрограммы 
или цикла. После возврата по стеку адрес возврата (значения 
номеров строки и оператора) снимается с него (стирается). Всего в 
стек помещается до 10 адресов возврата, и, следовательно, имеется 
возможность использовать до 10 вложенных процедур или циклов. 
Если программа структурирована нечетко, возможен останов ее с 
выдачей сообщений о переполнении стека РЮОС $фасК оуегЙо\ми или о 
его опустошении — РЮОС зф4асК ипаегЙом. Как раз для того, чтобы 
избежать переполнения стека, и нужен оператор РСЁЕАКЮ (без пара- 
метров}, выполняющий его очистку. 


Теперь обещанный рассказ о цикле ЮЕРЕАТ...ОМТЬ. Начало 
цикла задает оператор 


РЕРЕАТ 
— который используется без параметров. Оператор 
НТ _г 


ограничивает цикл снизу и определяет условие его завершения. 
Таким образом, выход из цикла происходит, когда значение пара- 
метра г становится ненулевым. После этого выполнение програм- 
мы продолжается со слелдующей после ОМПЕ_г строки. Оператор 
ОМТЕ удобно использовать совместно с логическими операторами, 
что и показано в примере программы, которая экспериментирует с 
различными, в том числе и неразрешенными размерами окон: 


10 СУЮВЕМТ_6:У/МОО\М/_0,36,12,28: РАРЕКЮ 5: МК 1:МООЕ_ 6,4: 
УИРРЕЕ_12:РОМТ_1:РСЕЕАЮ 

20 КЕРЕАТ 

30 ТЕТ п=ИМТ (РМО»23): ЦЕТ ‹=МТ (ЕМО*63): ЕЕТ Н=ИМТ (РМО*10): 
СЕТ а=мТ (®МО*40) 

40 РАЧЗЕ 30 

50 ЕТ #=(п+В)> 23: ВЕТ м=(с+9)>63: БЕТ м=НЬ >: ЕТ $=а>1 

60 Е {ОР м ТНЕМ РОР: РУЗН_1,100: ГЕТ м =0 
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70 ОМТЕ_м АМО $ 

80 СЕ\М/_6,0:СОРРЕМТ_5:МИМОО\М/_п,с,В, а: РАРЕЮ ЮМБ+7: 
НЧК 9:МОРЕ_1:СЕ\МИ_5,0: РЮМТ ОРВЕАЕ- 

90 РИМ 

100 РАМТ "ОКНО" ' "СЛИШКОМ БОЛЫШОЕ":РОМ 


МедаВаз1с позволяет при выполнении оператора ЧМТ осушест- 
влять переход не только на начало цикла, но и в любое другое 
место программы (этот прием использован в примере). Аля этого 
надо снять с вершины стека адрес перехода, записанный туда 
оператором КЕРЕАТ, и занести в стек требуемые номера строки и 
оператора в ней. Очистку вершины стека выполняет «беспарамет- 
ровый» оператор 


РОР 


А занесение в стек нового адреса возврата — оператор 


РУ$Н _$,п 


В нем параметр п задает номер строки, $ — номер оператора в 
ней, куда должен быть осуществлен переход. 

Отметим, что в случае «нормального» выхода из цикла, то есть 
при выполнении условия, записанного в ОУМТЕ, управление будет 
передано следующему за ОМПЁЕ оператору, независимо от адреса 
перехода, занесенного в стек оператором РОЗН. 


В МедаВазес имеется оператор 


РЕЗТАРТ _п 


— который при сбое программы вместо выдачи сообщения об 
ошибке отсылает компьютер к строке с номером п. К сожалению, 
РЕЗТАКТ реагирует предусмотренным образом только на ошибки, 
характерные для 5реснат-Бейсика, а при ошибках выполнения 
операторов МедаВаз1<с по-прежнему выдает сообщения. Тем не 
менее, с учетом этого ограничения, КЕЗТАКТ внолне можно исполь- 
зовать, например, для возврата из любого места программы в 
главное меню по нажатию клавиши Втгеак, которое приравнивает- 
ся эреснит-Бейсиком к ошибке. 


Применение оператора РЕЗТАЮТ проиллюстрировано примером, 
где в строку 20 умышленно введена возможность периодического 
возникновения ошибки (недопустимое значение ‘параметра в опе- 
раторе РАРЕК): 


10 РЕЗТАРТ_1000:ВРОЕЕ 
20 СОРВЕМТ_6: РАРЕВ ЮМО»*10: ВЕКНТ 1: МК 9 
30 СЕ$ : РАЦБЕ 30 
40 СОТО 20 

1000 ЕОМТ_1:МОБЕ_4:5'ПРРЕЕ_12 

1010 РАМТ АТ 10,20;"ОШИБКА!" 

1020 РАЦЗЕ 100: СО ТО 20 


8 Зак. № 192 225 
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Отмена действия оператора РЕЗТАКТ осуществляется в форме 
РЕЗТАКТ_ОЕЁ. Кстати, в этом примере использован также оператор 
противоположного свойства 


ВРОРЕ 


Он предотвращает реакцию на клавишу Втеак. В пример он 
включен для того, чтобы сообщение в центре экрана ноявлялось 
только в результате ошибки, а не нажатия ВтеаК. Действие опера- 
тора ВКОЕЕ отменяется оператором 


ВКОМ 


Иногда рекомендуют использовать оператор ВКОЕЁР для защиты 
программ на МедаВаз1с от несанкционированного доступа. Если 
учесть, что команды Е$САРЕ и КЕЗТАКТ, о которых мы говорили в 
начале главы, исправно действуют и при отключении клавиши 
Вгеак, то от тех любопытных, кто знаком с МедаВаз1с, такая защита 
более чем иллюзорна. От тех же, чьи познания ограничены 
эресиит-Бейсиком, лучшей защитой будет сам текст программы, 
написанный на МедаВаз1с. 


РАБОТА С МАШИННЫМИ КОДАМИ 


САЕЁ, ООКЕ, МОМ 


Теперь расскажем о средствах, которые предоставляет 
МедаВаз1с для отладки программ в машинных кодах и стыковки их 
с бейсик-программами. 


Для запуска программы в машинных кодах МедаВазс имеет 
оператор 


САМ 


— где 2 — стартовый адрес программы. Он вполне заменяет собой 
сочетания операторов эреснит-Бейсика КАМРОММЕ (5$ т, 
РАМТ 05К г и пр., а в силу своей краткости более удобен в среде 
МедаВаз1с, где ввод операторов осуществляется побуквенно. 


Весьма практичен при отладке программ в машинных кодах 
оператор 


ООКЕ_ 2, 
Он представляет собой не что иное, как лвухбайтовый РОКЕ. 
Параметры: + — адрес, г — лвухбайтовое число, заносимое в 


ячейки с адресами 2 и 2+1. 


Однако наиболее мощным средством отладки программ в ма- 
шинных кодах является встроенный в МедаВаз1с монитор- 
отладчик”, представляющий собой вполне самостоятельную 


Монитором называется программа, предоставляющая возможность просмотреть 
содержание ячеек памяти и регистров процессора, записать в них новые значения, 
отладить программу в машинных кодах и пр. 
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РАБОТА С МАШИННЫМИ КОДАМИ 


системную программу. Предусмотрены два способа вызова мони- 
тора: или из редактора МедаВа$1с командой 


Мом 


— или в ходе выполнения программы сочетанием клавиш! $расе/Е. 
При этом распахнется окно номер 3 (или окно с номером м, если 
ранее был выполнен оператор ЕХ_3, м, переопределивший окно для 
монитора), представив фронтальную панель монитора (рис. 20). 


Бульте готовы к тому, что монитор 
работает в шестнадцатеричной системе 
счисления. 

Слева и вверху панели монитора 
представлены названия регистров про- 
цессора и их текущие значения. В пра- 
вой части панели отражается фрагмент 
памяти: адрес ячейки, ее содержимое и 
соответствующий символ. Адрес ячейки 
памяти, на которую в данный момент 
настроен монитор (текущей ячейки), выделен инверсным цветом. В 
нижней строке монитора расположена строка, отмеченная симво- 
лом >. Она предназначена для ввола и редактирования команд 
монитора. 


Содержимое текущей ячейки изменяется набором в командной 
строке нового значения и нажатием клавиши Ещег. После этого 
текущей автоматически становится следующая ячейка. Переход к 
следующему адресу без изменения содержимого ячейки осуществ- 
ляется простым нажатием Ещег, а откат на одну ячейку назад — 
нажатием клавиш $5$/.. Установить текущей произвольную ячейку 
памяти можно с помощью команды 


М ‹адрес>_ 


Монитор позволяет также изменять содержимое регистров. Де- 
лается это командой 


В < двухбайтовое число> 


Регистр, в который заносится значение, отмечен звездочкой (*). 
Перемещается звездочка, и, соответственно, меняется текущий 
регистр с помощью клавиши Р. 


Состояние флагов 


52 Н РНС 
ЯР*РЕ 101011091 
НЕ_8ЗЕЕ ЕЕ?В В6 ? 
_ ЕЕТС 94 ? Адрес и содержимое 
Регистры ВС_5698 ров 33 = текущей ячейки 
РЕ_РЕ51 пая 
с 
Т^_90008 ЕЕ82 82 у 
ЕЕЗ2 В6 ? 
Т*_5СЗЯ ЕВ 93 ? 
Адреса 


и содержимое ячеек Е 


Рис. 20. Фронтальная панель монитора. 
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Программа в мангинном коде запускается командой 


} <адрес> 


Монитором предусмотрена возможность расстановки так назы- 
ваемых точек останова, что позволяет осуществлять отладку прог- 
рамм. Для указания места останова адрес, по которому нужно 
«тормознуть» выполнение программы, устанавливается текущим и 
нажимается клавиша $. Отменить точку останова можно клавишей 
О. После останова выполнение программы продолжается при на- 
жатии клавиши К, 


С помощью специальных команд монитора можно скопировать 
блок памяти по произвольному адресу (команда №) или занести во 
все ячейки выделенного блока памяти какое-либо значение (ко- 
манда №. Формат этих команд: 


т <адрес начала блока> <‹адрес копирования> <‹длина бпока> 


{ <адрес начала бпока> <длина блока> <«байт-заполнитель> 
Выход из монитора происходит по нажатию $расе. 


Мы не стали здесь детально описывать приемы работы С МОНИ- 
тором-отладчиком, поскольку эта книга посвящена Бейсику, а не 
программированию в машинных кодах». 


ПРОЧИЕ ОПЕРАТОРЫ И КОМАНДЫ 


ТВОМ, 5РЕЕО, ТКОРР, РЕРС©, КЕУ, РАМТЕК, ВАСКУР, ЕХАМИМЕ 


В МедаВаз1с существует группа операторов трассировки, слу- 
жащая для отладки бейсик-программ. Эти операторы можно 
использовать как в тексте программы, так и в непосредственном 
режиме. «Главным» из них является оператор 


ТАРОМ 


Он включает режим замедленного выполнения программы 
(трассировки). При этом в левом нижнем углу экрана высвечива- 
ется номер выполняемой в данный момент строки (номер операто- 
ра в строке не индицируется). Кстати, когда трассировка 
происходит при работающем операторе МТА$К, номера строк, отно- 
сящиеся к программе и подпрограмме, выделяются разными 
шрифтами. 


Благодаря наличию оператора 


$РЕЕО у 
имеется возможность задавать скорость трассировки. При у=0 — 
скорость максимальная, при у=254 — минимальная. Если у=255, 


Более подробно разобраться с монитором-отладчиком поможет книга [1], где 
описан монитор МОМ$4. 
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ПРОЧИЕ ОПЕРАТОРЫ И КОМАНДЫ 


программа выполняется в пошаговом режиме: по ее: ее - 
ру при каждом нажатии` любой клавиши. 


Отменяется режим трассировки оператором 
ТОРЕ 

Оператор 

ОЕЕС _а$,Ь1,....68 


облегчает построение символов, определяемых пользователем 
(ОРС). Строковая переменная а$ задает клавишу, при нажатии 
которой в режиме курсора [@] булет вызываться определяемый 
символ ОРС, а 8 последующих чисел являются байтами, из кото- 
рых складывается соответствующий символ. Удобно задавать числа 
Ь1...68 не в десятичной, а в двоичной форме с использованием 
оператора ВМ 5реснит-Бейсика — это придает наглядность 
процессу формирования символа. 


Из оставшихся нерассмотренными операторов особенно инте- 
ресен 


КЕУ_К,а$ _ 


Он позволяет закрепить за клавинтами 0...9 произвольные по- 
следовательности символов. 

Вызов запрограммированной последовательности осуществля- 
ется в момент редактирования строки комбинацией клавиш 
С$/$5+$5$/К, где К задает номер цифровой клавиши (0...9). 

Сама последовательность — это обычная строка символов или 
символьная переменная длиною до 255 знаков. Она записывается 
на место параметра а$. 

Практически длина послеловательности может и превышать 255 
знаков, но тогда клавиши нужно задействовать, скажем, через 
одну. Иначе «хвост» предыдущей серии наедет на область памяти, 
занятую последовательностью, привязанной к последующей кла- 
више. Аля клавиши 9 это недопустимо, так как она последняя. 
Однако длинные последовательности символов неудобны, посколь- 
ку они выводятся достаточно медленно. Лучше использовать не- 
сколько более коротких серий. 

Если одними и теми же последовательностями символов при- 
ходится пользоваться постоянно, имеет смысл сохранить их на 
ленте в виде колового файла и подгружать его в МедаВаз1с по мере 
необходимости. Область памяти, содержащая информацию о по- 
следовательностях, начинается с адреса 59956. Участки памяти, 
относящиеся к каждой клавише, занимают по 256 байт и должны 
заканчиваться нулевым байтом. Таким образом, если запрограм- 
мирована только одна клавиша 0, то для сохранения «привязан- 
ной» к ней последовательности нужно выполнить оцератор. 


ЗАУЕ "КЕУ$З"СОБЕ 59956,256 


Если запрограммированы все десять клавиш, длина файла воз- 
растет до 2560 байт. 


Приведем один красивый прием. Если вызываемая клавишей 
последовательность символов представляет собой строку из одного 
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или нескольких операторов, то пользуясь встроенным монитором- 
отладчиком, можно поставить в конце нее (в области памяти, 
которая начинается с адреса 59956) число 13 (00) в шестнадцате- 
ричном представлении), а вслед за ним ноль. Число 13 является 
кодом клавиши Е1\ег (возврат каретки}, поэтому после вызова 
последовательности нажатием С$/$$+$$/К строка операторов по- 
явится на экране и тут же автоматически выполнится. 


Оператор 
РЕМТЕВ_! 


обеспечивает простой способ переключения потока выводимой ин- 
формации с экрана на принтер. Чтобы в полной мере оценить 
действие этого оператора, нужно, как минимум, нодключить к 
компьютеру принтер и, кроме того, занести в ячейки 59934/35 
адрес драйвера принтера. Если параметр оператора РЕМТЕК_ 
равен нулю, то вывод будет осуществляться на экран, в других 
случаях — на принтер. 

Если после работы с принтером забыть выполнить РЕАИМТЕК_0, то 
может возникнуть недоразумение — никакой информации на экра- 
не болыше не будет появляться. Для исправления положения нужно 
«вслепую» ввести оператор РЕМТЕКЮ_0, и все наладится. 


Два последних описываемых оператора МедаВаз1с относятся к 
работе с магнитофоном. Олин из них 


ВАСКИР 


представляет собой весьма несовершенный ленточный 
копировщик. С его помощью можно копировать лишь файлы 
четырех стандартных типов (ВАЗ, СОРВЕ, СНАКАСТЕК АВКАУ и 
МИМВЕК АККАУ), причем за длиной файла, чтобы он не на- 
ложился на МечаВаз1с, нужно следить самим. Кроме того, не 
отслеживаются ошибки при загрузке: в любом случае на ленту 
сбрасывается файл той длины, которая указана в заголовке. А 
хуже всего то, что любая бейсик-программа, нахолящаяся в памяти, 
после выполнения оператора ВАСКУР ликвидируется, очищая место 
для копируемых файлов. Сам МедаВаз1< после этого обычно ста- 
новится неработоспособным. Так что если необходимо что-нибуль 
скопировать, не поленитесь загрузить нормальный копировщик — 
затраты времени окупятся. 


И, наконец, оператор 
ЕХАММЕ 


поможет прочесть заголовки файлов с магнитофона: название, 
длину, номер стартовой строки или адрес загрузки кодового блока. 
В отличие от ВАСКОР, этот оператор вполне безобиден. 


Сказать. что мы дали исчерпывающую информацию о 
МедаВазс, будет самонадеянно. Это ‘одна из тех «вещей в себе», в. 
которых всегда можно обнаружить что-нибудь новенькое. Поэтому 
дерзайте — и будете вознаграждены. 
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ПРИЛОЖЕНИЯ 


1. Алфавитный список операторов МедаВазс 


Таблица 16. 
_ > 


@<имя>_а,...,2$ Отмечает начало (заголовок) процедуры 
АЧТО_п,К Запускает автоматическую нумерацию 204 
строк программы с номера п и с шагом К 
ВАСКУР Включает режим ленточного копировщика 
ВКАМСН_п Инициирует ветвление программы с 2 
выполнением подпрограммы, 
начинающейся со строки п 
вто 
ВкОМ Возобновляет действие клавиши Вгеак 


САЁЕ-_2 Запускает программу в машинных кодах с 226 


адреса 2 
Заменяет атрибуты! экрана (см. в тексте) 
СЕМИ пт, м Очищает окно \ или текущее окно 210 
СЕМИ т способом т 
ОЕРС_а$,Ь1...68 Формирует симвоп ЦОС из байтов Ь1...68 229 
и связывает его с клавишей а$ 
ОЕЪЕТЕ_п1,п2 Удаляет блок программы со строки п! до 204 
строки п2 
ООКЕ_2,Б Заносит двухбайтовое число Ь в ячейки с 226 
адресами ги 2+1 
ОО\МУМ_п,с,а$ ‘Выводит строковую переменную а$, 208 
начиная со строки п (0...23) и столбца с 
(0...63) 
ЕБИ п Вызывает на редактирование строку п 205 


ЕМОРКОС_<имя> Отмечает конец блока процедуры 
ЕКА 


РАОЕ_а Циклически декрементирует значения 211 
атрибутов экрзна до значения а 
РОМТ_+ Включает шрифт номер # (0...2) 
Переключает вывод потока ! (0...6) в окно м 


ОР. ЧЕМУ кхикиххкковоовсвовоовоскы хе 5’ ТЕН 


ИУ 
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СЕТ_п1,2,п,с,В,9 Переносит в режиме т в буфер по адресу 
2 фрагмент экрана с координатами: п — 
начальная строка, с — начальный столбец, В 
— высота, ч — ширина 


МУЕКТ Инвертирует атрибуты всего экрана | 
КЕУ_К,а$ Задает строку а$ для вывода клавишами 229 
С$/5$$+55$/К, 
где К — цифровая клавиша (0...9) 
МОВБЕ_м/, п Устанавливает размер гп (1...4) симвопов 207 
МОБЕ_т для вывода в окно \ 


| 
‘7 
Вызывает встроенный монитор-отладчик 


$) 
ев 
в 


К) 
№ 
В 


МТА$К_п Инициирует параллельное выполнение 223 
подпрограммы, начинающейся со строки п 

РАМ_т,,р Выполняет горизонтальный скроллинг окна 219 
нар (-—255...255) пикселей 
в режиме т (0, 1) 

РАМУ/_р Выполняет горизонтальный циклический 219 
скроллинг окна нар (—255...255) пикселей 


РСЕЕАЮ Очищает стек процедур 


РЕАУ_,п,5{,г,а Воспроизводит музыкальную фразу, пара- 
метры: п1 — режим, $ — темп, { — началь- 
ная частота, г — чиспо шагов, а — размер 
шага 


Выталкивает из стека процедур последний 225 
адрес возврата (номер строки и оператора) 
РАНЧТЕК_1 Переключает вывод информации на 
принтер/ экран, ! — номер потока 
РУ$ЗН_$,п Заносит в стек процедур адрес возврата 


(п — номер строки, $ — номер 
РОТ_т, 2, п,с,П,а 


к) 
м 
ВЕ 


м м 
м) ло 
мл © 


оператора в ней) 


Возвращает на экран кадр, ранее помещен- 
ный в буфер оператором СЕТ: т — 

режим, 1 — адрес буфера, п — начальная 
строка, с — начальный столбец, № — высота 
кадра, д — ширина кадра 


КЕРЕАТ См. УМПЕ 224 
КЕЗТАКТ_п Инициирует/ прекращает переход по 
РЕЗТАКТ_ОРЕ ошибке на строку п 
$СКОЕЕМИ_р Выполняет вертикальный скроллинг окна на | 219 
р пикселей 
$СКОЕЕп,р Выполняет вертикальный циклический 219 
скролпинг окна на р пикселей в режиме т 
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"Ан 
9) 


к 
о) 
\л 


ПРИЛОЖЕНИЯ _ 


“№. *.", ”.”.*. 


| $ОРЕ Прекращает работу звукового генератора 221 


Запускает звуковой генератор в 
соответствии с данными, заданными 


оператором $ОУМО 


$ОУМО_аит, а, г.п Помещает данные в буфер звукового гене- 
ратора: а — способ заполнения буфера, т — 
режим, а — шаг, г — чиспо шагов, п — 


число циклов 


ЗРЕНМТх,у,и,У,З,П Выводит текст увеличенными символами, 
масштаб и местоположение которых 
опредепены параметрами: х — гори- 
зонтальная координата (0...255), у — верти- 
кальная координата (0...191), и — увели- 
чение по горизонтали, у — увеличение по 
вертикали, д — ширина, В — высота 


_Преэкращает вывод спрайтов 


$РКОМ $, тп Инициирует вывод спрайта номер $ в 216 
режиме пт (0...255) 


$РОТ_2,х,у,и,у,З,П Выводит на экран изображение кадра с уве- 
личением: 1 — адрес буфера, х — гори- 
зонтальная координата, у — вертикальная 
координата, и — увеличение по 
горизонтапи, у — увеличение по вертикали, 
3 — ширина, К — высота 


$ЮЕР_т Устанавпивает однократное циклическое 221 
воспроизведение звуков оператором $ОМ 

$ПИРРЕЕ_а Осуществляет штриховку символов в 207 
режиме МОПЕ_4 с плотностью 4 (0...15) 

5\УИАР_а2,а1 Заменяет на экране атрибуты а1 на 211 
атрибуты а2 


ТКОРЕ Отменяет режим трассировки 229 
ТОМ Включает режим трассировки 228 


ОМИ г Повторяет группу операторов, заключенных 


между КЕРЕАТ и ОМТИ, до тех пор, пока 
УРУ_Ь1.... Бп Аналог конструкции РАМТ СНЕ$ Ь1,,.... Бп, 
209 


значение г не станет нулевым 
где Бп — коды символов 


УИМОО\\_п,с,В, 9 Устанавливает положение и размеры 
текущего окна: 

п — начальная строка (0...23), 

с — начальный столбец (0...63), 


К (1...24) — высота, 9 — ширина (1...64) 
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2. Распределение памяти при работе с МедаВахс 


Р РАМЕ (2928—6863 
Симвопы, опредепяемые пользователем 


Берн —_-_— 8 
Интерпретатор МедаВаяс 


62515 
Область программируемых клавиш 
59956 
Интерпретатор МедаВазхюс 
45000 


Свободная область 
РАМТОР (23730) 


Е_НЫМЕ (23641) 
Переменные Бейсика 
УАЕ$ (23627) 
Бейсик-программа 
РКОС (23635) 


3. Использование МедаВаяс с системой ТВ-2О$ 


Поскольку МедаВаз1с работает во 2-м режиме прерываний про- 
цессора (М2), то на любые попытки обратиться к дисковой опе- 
рационной системе «в лоб» он реагирует весьма болезненно. Что- 
бы организовать корректную работу с ТВ-ОО5, необходимо на 
время обращения к диску переключаться в режим прерываний 
№1. Для этого нужно добавить в МедаВаз1с две подпрограммы в 
‚кодах, вписав в бейсик-загрузчик несколько строк: 


10 СЬЕАК 44979: КЕМ Опускаем КАМТОР на 10 байт 


40 КАМООМШЕ (5$К 15619: КЕМ : ГОАВ "МедаСоае"СОРЕ 

41 РОВ п=44980 ТО 44989: КЕАО 1: РОКЕ пи: МЕХТ п: РЕМ Разме- 
щаем подпрограммы 

42 ОАТА 243,237,86,251,201,243,237,94,251,201 


90 КАМООМИЕ 05$Ю 56100: КЕМ Запуск МедаВа$с 


Теперь обращаться к диску из МедаВаз1с можно следующим 
образом: 


100 КАМООЛМИХЕ Ц5$® 44980 
110 РАМРОММЕ Ц5$Ю 15619: КЕМ: ГОАО "#епате" 
120 КАМООМШЕ Ц5$К 44985 


В строке 100 происходит переход в режим !М1, затем могут быть 
любые операции с диском, а 120-я строка восстанавливает 12. 

Отметим, что этот способ не обеспечивает корректного выхода в 
ТК-РО$5 с помощью инструкции РАМООМИЕ Ц5$® 15616. 
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Нервая версия Веа Ваз1с (у.1.0) фирмы Веазой появилась на 
свет в 1983 г. Она дополнила Зреснит-Бейсик более чем 20 но- 
выми операторами и функциями. Потом была написана версия 
1.8 (1984 г.) и, наконец, появились самые мощные версии — 3.0 
и 3.1 (1985 г.)*, которые поддерживают более 40 новых операто- 
ров, расширяют возможности некоторых «базовых» операторов и 
вводят около 30 дополнительных функций. Мы будем описывать 
версию 3.1**. 


В основном, Ве Ваз1с ориентирован на решение вычислитель- 
ных задач и работу с данными и, пожалуй, представляет из себя 
наиболее мощную версию Бейсика для 7.Х ЗресНиат. 

Ваеа Вазс имеет развитые средства структурного программи- 
рования и управления программой (процедуры, циклы типа 
ОО....ООР, оператор варианта и т. п.), что заметно упрощает со- 
ставление программ и сокращает время их разработки. Значитель- 
но расширен в нем арсенал средств работы с памятью и реализо- 
ван принципиально новый подход к обработке массивов и строк 
символов: их копирование, склейка, сортировка, поиск по образцу 
в произвольном сечении ит. д. 

Веа Ваз располагает богатым набором операторов, обслужи- 
вающих вывод информации на экран. В нем возможна орга- 
низация многооконного режима работы программ (ло 128 окон), 
вывод символов произвольного размера без привязки к знакоме- 
стам. Все это в сочетании с возможностью изменять масштаб 
координатной сетки и перемещать центр координат в любое место 
экрана и даже за его пределы (то есть организовывать работу 
непосредственно в математических координатах) позволяет удобно 
оформлять результаты работы программ в виде графиков, гисто- 
грамм и пр. 


Есть, правда, еще одна версия —. 4.0 (1988 г.), предназначенная для 
2Х 5рес тит 128. 


** Файлы: Веа 3.1 (тип ВА$!С, длина 945 байт) и сВеа 3.1 (тип СОЕ, длина 18577 
байт адрес загрузки 46960). 
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Несмотря на то, что Ваа, Ваз1с не специализируется на работе 
с графикой, он, тем не менее, выполняет многие операции обра- 
ботки изображения: работу со спрайтами, быструю замену цве- 
товых атрибутов, скроллинг окна экрана, заливку замкнутого 
контура ит. д. 

Ваеа Ваз$1с имеет встроенные часы, средства обработки ошибоч- 
ных ситуаций и пошаговой отладки программ (трассировки). 

Важным достоинством Веа Ваз1с является наличие в нем удоб- 
ного редактора программ, в котором реализованы автонумерация 
и перенумерация строк, поиск и замена по образцу, быстрое 
удаление фрагментов программы и многое другое. 


Несмотря на значительное место, занимаемое в памяти интер- 
претатором Веа Ваз1с (около 19 килобайт), его расширенные воз- 
можности с лихвой окупают этот недостаток и позволяют быстро 
разрабатывать эффективные и компактные программы. 


РЕДАКТОР 


КЕУУУОРО$, ОЕЕ КЕУ, АОТО, ЕОТ, РЕЕ, АЕТЕВ, ОМ, ЗРИТ, 
РЕМИМ, ОЕГЕТЕ, М$Т, МЕМ() 


Веа Вазс, в отличие от своих собратьев — расширений 
зреснит-Бейсика, в синтаксисе и способе ввода операторов це- 
ликом сохраняет верность традициям, принятым в базовой версии: 
в нем ключевые слова вводятся нажатием лишь одной-двух кла- 
виш. Для реализации этого использован стандартный режим кур- 
сора [@] (С@гарс$), включаемый комбинацией клавиш ©С$/9. На- 
пример, после перехода в режим [©] нажатие клавиши 8 приведет 
к выводу в строку редактора ключевого слова КЕУ\М/ОЮО5*. 

Однако сказанное вовсе не означает, что в Веа Вазс нельзя 
использовать псевдографику и символы, определяемые пользова- 
телем (ОРС). Режиму Сгарс$ всегла можно вернуть его старый, 
привычный смысл. Делается это с помощью уже упомянутой ко- 
манды  КЕУУ/ОЮО$. Она имеет один числовой параметр. 
КЕУУ/ОКО$ 1 переводит компьютер в режим ключевых слов 
Веа Ваз1с, а КЕУМ/ОКО$ 0 — в режим вывода псевдографических 
символов и символов ООС, который отличается от стандартного 
синклеровского режима Сгарс$ только тем, что-в нем для удобст- 
ва за клавишей 8 закреплен не пробел, а ключевое слово 
КЕУ\У/ОЮО5. 

После загрузки Ве Ваз1с устанавливается режим КЕУ\У/ОКО?$ 1. 


Кроме синклеровского способа ввода ключевых слов, 
Веа Вазс допускает и посимвольный их ввод, причем без- 
различно, прописными или строчными буквами (в режимах кур- 
сора [С] или П.]). 


* _ Соответствие клавиш 2Х $реснит операторам Вейа Ваз1с приведено в Прило- 


жении 1. 
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Редактор Зреснат-Бейсика — большой интеллектуал: он, исхо- 
дя из контекста, знает, в каком месте вводимой строки должно 
появиться ключевое слово, и самостоятельно переводит курсор в 
режим [К]. Избавиться ‘от этого в стандартном Бейсике невозмож- 
но. Зато Веа Ваз1с это позволяет. Находясь в режиме ввода ключе- 
вых слов [К], стоит нажать клавишу $расе, и курсор превращается 
в [С] или [1] (в зависимости от того, какой из этих режимов был 
установлен ранее). Для того чтобы вернуться к режиму [К], доста- 
точно переместить курсор на прежнее место либо нажать клавиши 
$$/Ещег. Таким образом можно выбирать способ набора текста 
программы: целиком ключевыми словами или посимвольно. 

Закрепить способ ввода ключевых слов можно с помощью той 
же команды КЕУ\У/ОЮО$: КЕУУ/ОКО$ 2 отключит возможность 
посимвольного ввода, КЕУ\У/ОЮО$ 4, наоборот, позволит набирать 
все ключевые слова только посимвольно, а КЕУ\М/ОКО$ 3 вернет 
редактор в исходный режим «свободного выбора». 

Посимвольно набранные операторы и функции после нажатия 
Ещег (даже если ввод строки не завершен) заменяются соответст- 
вующими ключевыми словами. Этот эффект проявляется нагляд- 
но, если ключевые слова набирать строчными буквами — после 
нажатия Ещег они заменятся на. прописные. Если же редактор 
обнаружит ошибку и не захочет вводить строку, найти причину 
будет легко: неправильно набранное ключевое слово так и останет- 
ся записанным строчными буквами. Отметим только, что ошибка 
может быть не только в пропущенной или неправильной букве, но 
и в отсутствии в нужном месте пробела. К примеру, запись СНЕЗА 
редактор не поймет. 

Однако возможны ситуации, когда набранное с ошибкой ключе- 
вое слово будет интерпретировано как имя переменной и пропу- 
щено редактором. Так, например, если вместо строки "ЕТ А=СО$ Т 
набрать ЕТ А=СОЗТ, то редактор сочтет это вполне приемлемым и 
спокойно «проглотит», хотя программа будет работать не- 
правильно. 

Все же редактор Веа Ваз1с делает все возможное, чтобы обна- 
ружить и исправить максимум ошибок. Например, если между име- 
нем функции (оператором, другим служебным словом} и аргумен- 
том отсутствует пробел, но аргумент не является именем перемен- 
ной (то есть начинается не с буквы), «ошибка» будет исправлена. 


Веа Вазс значительно (ровно вдвое!) расширяет список функ- 
ций языка. Разумеется, было бы бессмысленно пытаться каждой 
новой функции приписать «персональную» клавишу компьютера, 
и разработчики Веа Ваз1с предложили оригинальный и по-своему 
удобный метод ввода имен функций. Сразу оговорим, что он не 
исключает возможность и посимвольного их ввода. 

Все новые встроенные функции заданы с использованием ин- 
струмента описания функций, определяемых пользователем 
(ОЕР ЕМ и ЕМ)*. Соответственно, и обращаться к ним в тексте про- 


Е Если, находясь в Ваа Ва$!с, выполнить ре Ы$Т 0, то можно увидеть, что 
Е 


строка с номером 0 состоит из операторов ОЕР ЕМ — в ней и определяются все 
новые функции Ве{а Ваз1с. 
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граммы нужно тоже стандартным способом — через ключевое 
слово ЕМ, добавляя однобуквенное имя функции. Таким образом, 
определенное число однобуквенных имен функций пользователя 
Веа Ваз1с занимает под имена встроенных функций. 

Аля того чтобы в тексте программы встроенные функции от- 
личались от функций, определенных пользователем, применен 
следующий прием: при наборе конструкции типа 
ЕМ «имя функции», где <имя функции> — зарезервированная буква, 
редактор заменяет эту букву на полное название функции. На- 
пример, после ввода открывающей скобки в строке 


ГЕТ а=РМ К 
сочетание РМ! будет заме- 110 РОЙ 1=1 ТО 3 
нено одним служебным и 
словом — именем новой (ЕТ а=3749 
: ТЕ Рьопе<484 ТНЕЙ 
= Ее ‚ЕТ 31282, Рьбпе:235 
2 = 
е ( _ МЕТ 2=19.03, Рьопе=242 
Преобразование в раз- аа 
вернутую форму имен 
символьных функций 
происходит после ввода 
* 
символа $*. Рис. 21. Фрагмент листинга программы 
Редактор Ве{а Ваз1с при Вефа Вас. 


выводе листинга на экран 

обеспечивает контекстное позиционирование программных строк, 
что делает тексты программ более удобочитаемыми (рис. 21). При 
этом на экран не выводятся двоеточия, разделяющие расположен- 
ные в одной строке операторы — каждый оператор печатается с 
новой строки**. Это свойство редактора, например, позволяет, 
набрав несколько двоеточий подряд, отделить друг от друга пус- 
тыми строками логически завершенные части программы (проце- 
дуры, РАТА-списки и т. п.). Того же эффекта можно добиться, 
нажимая одновременно ©$ и Ещег***. 


В режиме редактирования строки нетрадиционно обснаюх кла- 
виши управления курсором. Если в Зреснат-Бейсике курсор мог 
двигаться только в горизонтальном направлении, а клавишами 
«курсор вверх» и «курсор вниз» перемещался указатель текущей 
строки в листинге программы, то редактор Веа Вазс позволяет 
свободно «гулять» по редактируемой строке в любом из четырех 
направлений. При попытке переместить курсор выше либо ниже 
редактируемой строки он перебрасывается в ее конец. Управлять 
же указателем текущей строки можно только при условии, что 
строка редактора пуста и курсор находится в режиме [К]. 


* Полный список встроенных функций Ве{а Ваз! приведен в Приложении 2. 


Для экономии места мы всеже будем приводить листинги программ в привычном 
виде — разделяя операторы двоеточиями. 

При этом в текст строки помещается Е аенитены символ СНК$ 15, а 
Веа Ваз!с трактует как пробел (СН®$ 32) плюс возврат каретки (СНЮ$ 13). 


** 


ж*х 
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Доступен в Веа Ваз1с еще один способ набора программных 
строк — через программирование клавиатуры. Оператор 


ОЕЕ КЕУ ‹“символ клавиши" > [: < последовательность операторов? |:]] 
ОЕЕ КЕУ <"симвоп клавиши" > [; < строка симвопов|:] >] 


приписывает любой клавише компьютера (кроме С$, $$, $расе и 
Етцег) <последовательность операторов> или «строку символов» — мак- 
роопределение. Макроопределение может быть задано как после- 
довательностью операторов, и тогда оно вводится поеле двоеточия, 
так и символьной строкой, отделяемой от первого параметра опе- 
ратора точкой с запятой. 
После определения макрокоманды оператором ГЕРЁ КЕУ она вы- 
полняется нажатием указанной клавиши в специальном режиме 
курсора [+]. введенном в дополнение к стандартным режимам 
курсора. Включается режим [*] нажатием клавиш $$/$расе. 
Выполним строку: 


ОЕР КЕУ "Р": РАМТ "Нео!": РАМТ "Ном до уои до?" 


Теперь, если в режиме курсора [*] нажать клавишу Р, на экране 
появится: 


Нейо! 
Ном 4о уси ао} 


Нример можно переписать и так: 


10 ГЕТ а$="РЮМТ ""Нейо"": РАМТ ""Ном 4о уси до?""" 
20 РЕР КЕУ "Р";а$ 


Если в конец последовательности, следующей за ОГЕР КЕУ, 
поместить двоеточие, то она не будет выполнена, а ее текст выве- 
дется в строку редактора. Этим можно пользоваться для помещения 
в строку редактора часто повторяющихся при наборе программы 
фрагментов строк. 

Макроопределение можно «снять» с клавиши, выполнив опера- 
тор ОЕЁ КЕУ с символом данной клавиши без следующего за ним 
набора инструкций, например, ОЕР КЕУ "Р". Одновременно все 
макроопределения удаляются оператором ГБЕР КЕУ ЕКАЗЕ. 

Следует помнить, что, сохраняя в памяти созданные макроопре- 
деления, интерпретатор несколько опускает КАМТОР. 


Веа Ваз1с избавляет нас от необходимости при вводе програм- 
мы каждый раз набирать номер очередной строки. Включается 
режим автонумерации командой 


АЧТО [<начальный номер > |, <шаг>]] 


В ней параметр ‹начальный номер>* задает номер первой добав- 
ляемой к программе строки, а параметр <шаг> — шаг нумерации 


Для большей наглядности мы будем указывать в формате операторов и функций 
Веа Ва$!с «словесное» название параметров. Однако вполне естественно, что, на- 
пример, параметром < начальный номер > может быть любое целочисленное зна- 
чение (переменная, вес которое попадает в разрешенный диапазон (в 
данном случае — 0...9999); под < строкой символов > подразумевается символь- 
ное значение (символьная константа, переменная, выражение); под <числом > — 
числовое значение ит. д. 
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для последующих строк. Команда может не иметь ни одного пара- 
метра либо иметь только один. В первом случае по умолчанию 
предполагается, что оба параметра равны 10. Во втором — единст- 
венный параметр определяет номер первой «автонумеруемой» 
строки, а шаг также равен 10. 

Отменить автонумерацию проще всего, нажав и удерживая 
клавиигу Втеак (С$/$расе} в течение секунды. В момент отклю- 
чения режима АЧТО появится сообщение 0 ОК: 0,1. Автонумерация 
сбросится и по команде АЧТО 0 или после выполнения любого 
оператора в непосредственном режиме (для этого перед вводом 
оператора надо стереть появившийся в строке редактора очерел- 
ной номер). 

После стирания выскочившего номера можно перемещать ука- 
затель текущей строки. Следует только учитывать, что при возвра- 
те к автонумерации редактор предложит уже не прежний номер, а 
новый — на <шаг> больше номера строки, на которую установлен 
указатель, хотя строка с таким номером уже может существовать. 


Нродолжим рассмотрение команд редактора Веа Ваз!с. 
ЕСТ [<номер строки > | 


Эта команда вызывает на редактирование строку программы с 
номером, заданным в параметре, независимо от положения указа- 
теля текущей строки. Если строки с заданным номером не сущест- 
вует, на редактирование будет вызвана строка с ближайшим 
большим номером. Набирается эта команда нетрадиционно, но 
просто: клавишей 0 после любого нажатия Ет{ег. Команда ЕОП без 
параметра вызывает на редактирование текущую строку програм- 
мы. Впрочем, набрать ЕГТ можно и обычным способом — в режиме 
курсора [С] или посимвольно. 


Мощная команда редактора Веа Ваз1с 


ВЕЕР «ключ для поиска> 


последовательно вызывает на редактирование строки программы, 
включающие в себя текст, заданный в параметре. Ключом для 
поиска может быть имя переменной (массива, процедуры), число- 
вая константа (выражение) или символьная строка, заключенная в 
кавычки. Различий между прописными и строчными буквами не 
делается. 

Если в качестве ключа необходимо использовать содержимое 
символьной переменной, а не ее имя, то последнюю необходимо 
взять в скобки: ЮЕР (а$). 

В случае, если образцом является строка символов, на редак- 
тирование будут вызваны строки с любым включением указанного 
набора символов, в том числе с полностью или частично совпада- 
ющими именами переменных. Так, например, команда КЕЁ "ога" 
вызовет одну за другой на редактирование строки 


78 ГЕТ Огд=55679 
80 ГЕТ Рогдо=22.51 
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510 МРОТ "Огдапта#оп питЬег "; Мит 
640 РЕМ ОЮСАМС 


По завершении редактирования очередной найденной строки и 
ввода ее в программу повторное нажатие клавиши Ещег поместит 
в нижнюю часть экрана следующую строку, удовлетворяюшую 
условию поиска. Если строка программы содержит искомую под- 
строку в нескольких экземплярах, она будет «вызвана на ковер» 
соответствующее количество раз. 

Выход из этого режима осуществляется так же, как и из режима 
АЧТО. 


С помощью команды 
АЕТЕВ <ключ для поиска> ТО <образец для замены> 


можно осуществлять автоматический поиск и замену фрагментов 
текста программы. Для обоих параметров команды справедливы 
соглашения, принятые для параметра команды КЕЁ. Второй пара- 
метр может принимать значение «пустая строка». 

Команда АЁТЕК просматривает 
текст программы и все найденные 
включения — последовательностей 
символов или имен переменных 
(массивов, процедур}, заданные 
«ключом для поиска», заменяет на 
«образец для замены>, указанный 
во втором параметре. 


ОМ [<номер строки>] 


Эта команда сцепляет через дво- 
еточие две соседние строки программы: строку с номером, указан- 
ным в параметре, и следующую за ней. После выполнения коман: 
ды номер присоединенной строки освобождается. К примеру, 
фрагмент программы 


151 РОК 1=1 ТО 1000 


152 РАМТ РЕЕК | 
153 МЕХТ 1! 


после выполнения команды Ю\ 151 будет выглядеть так: 


151 РОК =1 ТО 1000: РЕМТ РЕЕК | 
153 МЕХТ: 


Команда ©Ю/М без параметра соединит текущую. строку и строку, 
следующую за ней. 


5РЫТ 


Эта команда обратна по действию команде ОМ: она расщепляет 
строки, составленные из нескольких операторов. В отличие от 
других команд редактора, $РЫТ выполняется не введением 
ключевого слова с параметрами, а совершением несложной опе- 
рации в процессе редактирования строк. Разделение производится 
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введением символа <> (клавиши $$/М/) в следующую за «фантом- 
двоеточием»* позицию редактируемой строки (в этой позиции 
курсор переходит в режим [Ж]). После нажатия Ещег часть строки 
до курсора возвращается с прежним номером в текст программы, 
а остаток строки, словно хвост ящерицы, оказывается в наших 
руках. Оставшийся в редакторе «хвост» имеет тот же номер, что и 
его удравнтая «хозяйка». Поэтому, если номер не сменить, то после 
нажатия Еег вторая часть строки перепишется в программу на 
место первой. Будьте внимательны! 


Без слелдующей команды не может обойтись любая мало-мальски 
уважающая себя версия Бейсика: 


КЕМОМ [<начало>] [ТО <конец>| [ЫМЕ «нов. начало>] [$ТЕР <шаг>] 


Она перенумеровывает (перебрасывает с одного места програм- 
мы в другое) блок строк, начиная с номера, заданного параметром 
‹начало>, по номер «конец». Новое место (номер, присваиваемый 
первой строке блока) и шаг перенумерации определяются парамет- 
рами «нов. начало> и <шаг>**. 


По умолчанию параметр <начало> принимает значение номера 
первой строки программы, параметр <конец> — номера последней 
строки, «нов. начапо> — 10 и <шаг> — 10. Следовательно, использо- 
вание команды КЕМОМ без параметров приведет к перенумерации 
всех строк программы, начиная с номера 10 и с шагом 10. 

Если при задании первых двух параметров будет указан номер 
не существующей в программе строки, действие команды прервет- 
ся сообщением № зисй те — нет такой строки. В команде предус- 
мотрена «защита от дурака»: если от нее потребуют присвоить 
строке уже сушествующий в программе номер, будет выдано сооб- 
щение № гоотт юг [те {нет места для строки). 

Конечно, изменить номера строк в программе — дело нехитрое, 
куда важнее другое: сохранить при этом правильность всех ссылок 
в операторах СО ТО, СО ЗВ и других, задающих переходы по 
номеру строки. В случае, если параметры в этих операторах зада- 
ны в явном виде (числом), команда КРЕМОМ выполняет перенуме- 
рацию этих параметров корректно. Номера строк, в которых содер- 
жатся операторы перехода с параметрами, заданными выра- 
жением, после отработки команды выводятся на экран в виде 
сообщений: 


Райеа а#+ «номер строки>:<номер оператора в строке> 


В этих операторах придется вручную откорректировать адреса 
переходов. 

Для работы команды ВЕМОМ в качестве буфера используется 
экранная область памяти компьютера. Поэтому не пугайтесь, если 


Напомним, что в Ве!а Ваз!с двоеточия не высвечиваются. 

Веа Ва51с позволяет при перенумерации присваивать строкам номера в интервале 
1...16383. При этом все переходы на строки с номерами, превышающими 9999, 

осуществляются корректно. Вызов на редактирование таких строк возможен 
всеми доступными в Ве!а Ваз!1с способами. 
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Значительно облегчает процесс редактирования программ ко- 
манда 


ОЕГЕТЕ [<начало>] ТО [<конец> | 


Она удаляет фрагмент программы со строки с номером «начало» 
по строку «конец> включительно. В редакторе Зресиит-Бейсик для 
этого пришлось бы вводить номер каждой подлежащей удалению 
строки. По умолчанию параметр «начало> принимает значение 
номера первой строки программы, «конец> — последней строки. 

Как и ЮКЕМОМ, команда ОЕГЕТЕ «не любит», когла в качестве 
параметров ей подставляют номера несуществующих строк. В 
таких ситуациях она выдает сообщение № зисН те (нет такой 
строки). 

Использование ОЕЁЕТЕ в качестве оператора в тексте программ 
позволяет создавать так называемые оверлейные программы, то 
есть программы, состоящие из небольшого блока, постоянно нахо- 
дящегося в памяти компьютера, и фрагментов, подгружаемых по 
мере необходимости с внешнего носителя. Отработавший фраг- 
мент удаляется оператором ОЕКГЕТЕ, а на его место (в эти же строки) 
с помощью МЕВСЕ подгружается следующий. Таким образом можно 
писать программы практически неограниченной длины. 

Команда ОЕЁЕТЕ 0 ТО 0 позволяет при необходимости избавиться 
от нулевой строки, в которой располагаются описания расширен- 
ных функций Веа Ваз1с. 


‚Веа Ваз!с не только вводит новые команды, но и совершенству- 
ет уже существующие. Одной из таких команд является 


Ы$Т [<начало>] ТО [<конец>] 


Она выводит на экран фрагмент программы, ограниченный 
строками: е номерами, заданными значениями параметров «<нача- 
ло> И <«конец>. 


Команда Ы$Т ЮЕЁ «ключ для поиска» выводит на экран список 
номеров строк, удовлетворяющих условию «ключа»>. Команда 
-$Т ВАТА распечатает все переменные программы; 45$Т УАЁ — толь- 
ко числовые, Ш$Т УАЕ$ — символьные. Для массивов булут выведе- 
ны только их размерности. 

При помощи команды !5$Т ОЕР КЕУ можно просмотреть список 
клавиш с приписанными им макросами. Вот такая многоплановая 
команда! 


Завершим рассказ о редакторе Веа Ва51с описанием очень по- 
лезной функции 


МЕМ() 


С ее помощью можно определить объем памяти в байтах, доступ- 
ный для бейсик-программ. Для иллюстрации работы функции 
выполним программку: 


10 РАМТ МЕМ(): СМ А(10,100): РАМТ МЕМ() 


В результате получим два числа, первое из которых на 5008 
больше второго. Это вполне естественно, ведь после резервиро- 
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вания места под массив А() объем памяти, доступный бейсик-прог- 
рамме, значительно уменьшится. 

В заключение отметим, что некоторые из описанных в этом 
разделе ключевых слов при использовании их в качестве операто- 
ров в тексте программ могут иметь иной смысл, о чем мы расска- 
жем позже. 


ОПЕРАТОРЫ ПРИСВАИВАНИЯ 


ТЕТ, ОЕРАЧЦЁТ 


В программах, написанных на Веа Ваз1с, допускается одним 
оператором "ЕТ присваивать значения сразу нескольким перемен- 
ным. Вместо принятой в Зреснат-Бейсике строки 


СЕТ А=1: СЕТ В=2: (ЕТ С=З 
можно записать: 
ТЕТ А, В=2, С=З 


Список переменных, стоящих следом за одним оператором Е ЕТ, 
может иметь произвольную длину. Позже (см. оператор ОМ) мы 
покажем, что новая форма записи оператора ЁЕТ не только ускоря- 
ет набор программы, но и имеет серьезное смысловое преимуще- 
ство перед стандартным форматом. 


Веа Ваз1с располагает еще одним оператором присваивания 
ОЕРАЦЕТ 


В отличие от \ЕТ, он задает значение только тем переменным, 
которые до этого не были определены, то есть упоминаемым в 
программе впервые. Такое свойство оператора ОЕРАЦЕТ может ока- 
заться полезным в случаях, когда вследствие ветвления программы 
нельзя предсказать, будет ли переменная определена в ланном 
месте программы или нет: 


100 ЕТ О=В-А*2 
110 1: О=0 ТНЕМ "ЕТ С=2 
120 РЕРАЧЁТ С=3/О 


Предполагается, что до этого фрагмента программы переменная 
С не определена. Оператор ОЕРАЦЧЁТ помог избежать еще одного 
условного оператора (120 Е О<>0 ТНЕМ 1ЕТ С=3/0). Другие варианты 
использования оператора ОБЕРАЦТ можно найти в разделах, посвя- 
щенных процедурам и операторам управления программой (см. 
ТКАСЕ, ОЕЁР РКОС, ГОСА|). 

Как и ЁЕТ, оператор ОЕРАЧЁТ допускает одновременную ини- 
циализацию нескольких переменных, перечисленных после него 
через запятую: 


ОЕРАЦЕТ Х=1, У=2, 7=3 
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ВЫВОД СИМВОЛОВ НА ЭКРАН 


ОУЕЮ, СУРЕ, ЧУМС, 4$ЯМС$(), КЕУМ/ОЮО$, $СЮМ$(), РЕОТ, АЁТЕЮВ 


Ве Ваз1с, помимо стандартных, использует дополнительные ко- 
ды управления выводом на экран: 


Окно Экран Действие 

СНЮ$ 8 СН®$ 2 курсор влево 

СНЮ$ 9 СН®$ 3 курсор вправо 

СНЮ$ 10 СНЕ$ 4 курсор вниз 

СНЮ$ 11 СНЕ$ 5 курсор вверх 
== СНЕ$ 12 удаление символа (Реее) 
— СНК$ 15 пробел + возврат каретки 


В этой табличке коды, указанные в первой колонке, управляют 
курсором в пределах текущего текстового окна (см: стр. 249}, не 
позволяя курсору «выскочить» за границы окна. Коды из второй 
колонки ‘игнорируют все ограничения и позволяют курсору «гу- 
лять» по всему экрану. 

Приведем пример, иллюстрирующий применение этих кодов: 


10 ГЕТ 1$ =СНЕ$ 8: ВЕТ ®$=СН®$ 9 

20 ТЕТ 2$=СН®$ 10: ВЕТ 94$=СН®$ 11 

30 ЁЕТ а$="1"+0$+Е$+"2345"+4$+Е$+"6"+9$+Е$+"7"+ 
Е$+Е$+1Е$+"89" 

40 РАМТ АТ 1,0; а$ 


Строка, выведенная на экран, будет иметь вид: 


‚Обратим Ваше внимание еще на одно необычное свойство Веа 
Ваз1с: оператор ОУ\УЕЮВ, кроме привычных 0 и 1, может использо- 
ваться с параметром 2. О\УЕК 2 позволяет выводить на экран симво- 
лы, не затирая и не инвертируя экранного изображения — вывод 
происходит как бы внакладку. 


Веа Ваз1с позволяет устанавливать произвольный размер сим- 
волов, выводимых на экран. Делается это с помощью оператора 


С$1Е <ширина знакоместа> , «высота знакоместа> 


После выполнения этого оператора символы при выводе на 
экран будут вписываться в знакоместа «нового покроя», размеры 
которых (в пикселях) задаются параметрами «ширина знакоместа> и 
< высота знакоместа>?. Установка шрифта сохраняется до следующего 
оператора С$РЕ. Олнако, этот оператор может оказывать и времен- 
ное действие, если его разместить в операторах РАМТ или РЕОТ 
подобно ИМК, РАРЕЮ, ВЮЮНТ и ЕЕАЗН. Проиллюстрировать работу 
оператора СЫРЕ может следующая программка: 


100 СУШЕ 50,100 
150 РАМТ АТ 0,0;"О": ВЕМ Огромный символ 
200 РАЦЗЕ 100: РЮМТ АТ 0,0 
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400 РОК 1=0 ТО 15: КЕМ Каждая новая строка... 

600 СУТЕ 4-1,8-+1: РАМТ "ОМУЕРТУ”: КЕМ ...печатается символами 
большего размера 

800 МЕХТ ! 

900 СЯТЕ 4,8 


Рассматривая полученное на 
экране изображение, можно за- 
метить, что Веа Ваз1с использу- 
ет только два символьных набо- 
ра: один — для знакомест 
шириной до 5 пикселей, другой 
— для всех остальных. Размер 
символов может меняться лишь 
для второго набора, но только 
дискретно (кратно четырем 
пикселям). Изменение пара- 
метров С52Е между скачками ы 
приводит лишь к изменению Рис. 22. Шрифты различной 
расстояний между символами и ширины и высоты. 
строками (рис. 22). 


При равенстве высоты и ширины символов допустимо указы- 
вать лишь один параметр, то есть инструкции СЗГЕ 8 и СУГЕ 8,8 
эквивалентны. 

После изменения размеров шрифтов операторы позициониро- 
вания печати АТ и ТАВ начинают работать в новой сетке знакомест. 


Задавая оператором С$РЕ сетку из «знакомест-лилипутов» или 
«знакомест-гулливеров» и при этом активно меняя цвета выво- 
димых символов, можно ненароком получить на экране верми- 
шель из «перенедокрашенных» знаков. Нормальную окраску сим- 
волов можно установить, лишь задавая параметрам СЯ7Е значения, 
кратные восьми. Следует также учитывать, что при установленных 
размерах знакомест меньше 6 пикселей печатаются только правые 
половины символов ООС. 


Непревзойденной гибкостью в размещении символов на экране 
обладает оператор 


РЕОТ [список атрибутов; | <х>, <у> [; «строка символов» ] 


РЕОТ с новым синтаксисом выводит строку символов, привязы- 
вая левый верхний угол первого символа к точке с координатами 
<х> и <у>. Перед параметрами, залающими координаты точки 
вывода, можно поставить любые ключевые слова, управляющие 
атрибутами. 

РЕОТ с опущенной «строкой симвопов> ничем не отличается от 
стандартного синклеровского оператора — он ставит на экране 
точку с координатами <х> и ‹у>. 

Интересной особенностью новой модификации оператора РЕОТ 
является то, что при выводе символов в точку с координатами (0, 0) 
он размещает их ниже 22-й строки экрана, то есть на служебном 
экране. 
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Параметр «строка символов? может иметь произвольную длину и 
включать в себя различные управляющие символы”. 

При достижении выводимым текстом правой границы экрана 
не происходит перехода на следующую строку, вывод продолжает- 
ся с начала этой же строки. Если Алина текста болыше ширины 
экрана, тс конец его затрет начало. Аля корректного размещения 
текста необходимо пользоваться управляющими кодами. 


Приведем впечатляющий пример применения оператора РЕОТ: 
10 РОВ М=0 ТО 255: РЕОТ М,М/2;"РЕМО": МЕХТ М 


Эффект плавно «летящего» по экрану слова возникает в этой 
программе оттого, что новая позиция вывода строки отличается от 
предыдущей всего на один пиксель по горизонтали и вертикали. 
Поскольку изображение большинства символов не плотно вписы- 
вается в знакоместо, а имеет окантовку толщиной в один пиксель, 
то при нахлесте строки, выводимой РЕОТ-методом со смещением на 
один пиксель, старый текст затирается новым. К сожалению, этот 
метод не может использоваться для перемещения символов, изоб- 
ражение которых примыкает к самому к; ,ю знакоместа (4, уи 
некоторых других) — при перемещении этим способом они булут 
оставлять на экране след. 


Спектр применения 
оператора РЁЕОТ весьма 
широк: это подписи к 


иллюстрациям, разметка 
осей графиков, вывод 
верхних и нижних индек- р = 


сов в математических и 
химических формулах и 
т. А. Приведем пример 
программки, выводящей 
на экран химическую фор- 
мулу (рис. 23): 


Рис. 23. Пример использования 
оператора РЕОТ. 


10 ТЕТ А$="С72Н75ОН" 

20 СУГЕ 8: ЕТ Х=0, У=170, ЕЕО, А=8 

30 РОК М=1 ТО ТЕМ А$ 

40 |: АЗ (М)="””” ТНЕМ (ЕТ У=\У-3, Е=1, А=4: СЯЕ 4: МЕХТ М 
50 РЕОТ Х,У;А$(М): СЕТ Х=Х+А 

60 1-Е ТНЕМ (ЕТ У=\У+3: СЯЕЕ 8: "ЕТ Е=0, А=8 

70 МЕХТ М: СУЕЕ 4,8 


В этом примере управление выводом на экран осуществляется с 
помощью знака `. Он указывает на то, что слелдующий за ним 
символ необходимо печатать как нижний индекс, то есть после 
встречи знака ^ в тексте позиция вывода понижается на 3 пикселя 
и уменьшается размер символа (строка 40). 


В операторе РЕОТ управляющий символ СНЕ$ 15 перемещает позицию вывода к 
началу строки. 
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Ваеа Ваз1с позволяет преобразовывать числа в символьную фор- 
му по заданному шаблону. Осуществить эту операцию можно либо 
с помощью функции 


9$4С5$ (<шаблон>, «чисповое выражение> ) 
— либо вставив ключевое слово У$МС в строку следом за РЕАНМТ: 
РАМТ 0$1С <шаблон> 


«Шаблон> — это символьная строка, состоящая из знаков # и 0, 
задающих позиции для вывода цифр, и точки (.), определяющей 
положение десятичной запятой. Например: 


СЕТ А$=9$МС$ ("## Н.Е", 12.3456) 


Если количество знаков в целой части числа меньше количества 
символов, отведенного для них шаблоном (как в примере), то 
функция 9$МС$ вернет строку, в которой недостающие слева зна- 
ки будут заполнены: 


. пробелами, если в шаблоне использованы символы #; 
. нулями, если в шаблоне использованы символы 0. 


При попытке впихнуть в 
«прокрустово ложе» шаблона 
число, у которого целая часть 
больше, чем позволяет шаб- 
лон, оно будет усечено. При 
этом первым символом в нем 
будет стоять знак процента 
(%), сигнализируя о некоррек- 
тном форматировании. — 

Недостающие символы в 
дробной части числа (справа 
от точки) во всех случаях за- 
мещаются нулями. Лишние знаки отсекаются, а число округляется. 
Приведем примеры различного форматирования числа 123.456*: 


Шаблон Представление 
НН. Н#Е 123.456 
НН. Е Е __123.4560 
00000.0000 00123.4560 
##Н#.# 23:5 

##.## %2..5 
###.#.# 123.4.6 
#Е#.не# 123.4%6 

{огта} ###.### {огта{ 123.456 
НЯ # юЮгта+ 123.4%%огта}{ 


Из примеров видно, что в маску унции 4$МС$ можно вклю- 
чать и другие символы, но так, чтобы они стояли до шаблона. 
Только в этом случае гарантируется корректная запись числа. 
Отметим, что функция 4$МС$ не работает с экспоненциальным 
представлением чисел. 


* Для наглядности пробелы в примерах заменены символом подчеркивания (-). 
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ТЕКСТОВЫЕ ОКНА- 


Веа Вазс обладает великолепным инструментом преобразова- 
ния атрибутов экрана. Оператор 


АТТЕВ [‹список атрибутов 1>] ТО [<список атрибутов 2>] 


ищет на экране знакоместа, атрибуты которых соответствуют спис- 
ку, приведенному в первом параметре, и заменяет в этих знакоме- 
стах атрибуты на новые, представленные списком во втором пара- 
метре. АЁТЕЮ может работать одновременно с любой комбинацией 
атрибутов: 


АЁТЕК 1МК 3, ВАСНТ 1 ТО РАРЕК 6, РЕАЗН 1 


Приведенный оператор, конечно же, не меняет №К на РАРЕК, а 
ВЕЮНТ на РЕЬАЗН. В знакоместах, для которых задано одновременно 
и №МКЗ, и ВАСНТ 1, он устанавливает РАРЕК 6 и РЁЬАЗН 1, не за- 
трагивая других атрибутов. 

Левый список атрибутов в операторе АЁТЕЮ может быть и пустым: 


АЁЕТЕК ТО РАРЕК 5, МК 2, ВЮСНТ 1. 


В этом случае атрибуты переустанавливаются для всего экрана. 
Но в отличие от операторов ИМК, РАРЕВ, ВЮАЮНТ и РЕА$Н, оператор 
АЕТЕК задает временные атрибуты. То есть и после выполнения 
оператора АЁТЕК вывод информации на экран будет продолжаться 
с ранее установленными постоянными атрибутами. 

Пользуясь оператором АЁТЕВ, можно весьма эффектно уводить 
экран в затемнение и выходить из него. 


Завершая описание операций вывода на экран символьной 
информации, рассмотрим функцию 


$С®М$ (<строка>, <стопбец>) 


Она возвращает символ, расположенный на экране в позиции 
(<строка>, <столбец>), то есть выполняет то же действие, что и 
функция $СКЕЕМ$ Зресниат-Бейсика. Но в отличие от прототипа, 
5СКМ$ распознает на экране не только символы текущего набора, 
но и символы, определяемые пользователем (ОРС), которые выво- 
дятся на экран в режиме КЕУМ/ОЮО5 0. 

Как $СВЕЕМ$, так и $СРМ$ работают только в режиме СУ7Е 8. 


ТЕКСТОВЫЕ ОКНА 
У\МИМОО\\, СЕ$ 

Веа Ваз1с располагает оператором, позволяющим организовать 
работу с текстовыми окнами: 

УМОО\/! ‹номер окна> [;<х>,<у>,<ширина>, <высота>] 


Этот оператор дает возможность открыть до 127 окон*. Парамет- 
рами оператора У/ИМОО\/ задаются: индивидуальный «номер> окна, 


* При открытии очередного окна КАМТОР опускается на 15 байтов. В осво- 


бодившемся пространстве создается область системных переменных, в которой 
хранятся параметры окна. 
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координаты левого верхнего угла окна в пикселях — <х> и <у> и 
его размеры в пикселях — «ширина» и «высота». Размеры окна 
округляются до значений, кратных четырем. 


Оператор МИМООМ/ с параметрами «по полной выкладке» только 
задает окна, не производя никаких других действий. 
Активизировать окно, то есть сделать его текущим, можно, вы- 
полнив оператор У/МОО\/ с одним параметром: 


\ММОО\/ <номер окна> 


После этого операторы РАМТ и Ы5$Т будет выводить данные только 
в пределах текущего ‘окна, причем за начало символьных ко- 
ординат — позицию печати (0, 0) — булет принят его левый 
верхний угол. Это означает, что каждое окно имеет независимую от 
основного экрана и от других окон нумерацию строк и столбцов. 

Для каждого окна задаются свои постоянные атрибуты и свой 
размер символов. Все параметры окна запоминаются и при воз- 
врате к нему (объявлении окна текущим) восстанавливаются. За- 
поминается также и текущая позиция печати. Вновь открываемые 
окна по умолчанию имеют следующее состояние: РАРЕК 0, МК 7, 
СЕТЕ 8. 

Размеры ранее заданного окна могут быть переопределены. Но 
смены формата окна не произойдет до тех пор, пока не будет 
выполнен оператор У/ИМООУ\/ <номер окна> (лаже если окно в насто- 
ящий момент является текущим}. Изменение геометрических па- 
раметров окна влечет за собой потерю текущей позиции печати: 
она возвращается в его левый верхний угол. Цветовое же решение 
окна при этом сохраняется. 

После запуска Веа Ваз1с располагает одним «готовым к упот- 
реблению» (заданным и активизированным)} окном с номером 0. 
Оно занимает весь экран, и любая попытка изменить его размеры 
ни к чему не приведет“. При возврате в нулевое окно из других 
окон оно не восстанавливает ранее заданный в нем размер симво- 
лов и постоянные атрибуты экрана и всякий раз с завидным 
упрямством предлагает стандартный набор: знакоместа 8х8 пиксе- 
лей** и «окрас» белым по черному. 

Можно, не выходя из текущего окна, «почистить» любое другое 
открытое окно оператором 


СЬ$ <номер окна> 


Аля одновременного закрытия всех окон (кроме нулевого) вы- 
полняется оператор 


\УМОС\У/ ЕКАЗЕ 
Проиллюстрируем работу с окнами на примере: 


10 СЯРЕ 5,9 
20 УИМОО\М/ 1;121,175,132,175 


Нулевое окно отличается еще и тем, что не претендует на участок памяти над 
КАМТОР. 


Фактически команда У/МООМ\М/ 0 равносильна установке СУ7Е 0, включающей 
стандартный драйвер быстрого вывода на экран, который игнорирует все оконные 
установки. Этот режим остался в наследство от предыдущих версий интерпрета- 
тора (3.0 и ый он устанавливался в них при старте Ве{а Ва$1с. 


** 
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30 УЛМОО\М\ 2;0,175,120,175 

40 УЛНОО\М\ 1: РАРЕК 1: СЕЗ: СУШЕ 4,8: РАМТ АТ 0,0;"У/таоми 1" 
50 \ИМОО\М/\ 2: РАРЕК 2: СЕ5: РАМТ АТ 0,0;"У/таом 2" 

60 УИМОО\М/ 1: Ы$Т 10 ТО 60 

80 УИМОО\М\ 2: СЕ$ 1: Ы$Т 

100 МИМОО\\ 0: СЕ$: Ы$Т 


В ходе выполнения этой программы на экране одно за другим 
откроются два окна. В каждое из них поочередно будет выводиться 
текст символами разных размеров. 


ГРАФИЧЕСКИЕ ОПЕРАТОРЫ 


ОКА\М\/ ТО, РЫЕ, РАСЕС(), ВОЩЕ, $СВОЦЕ 
ОВА\/ ТО <х>, <у> [, < угловая величина > | 


Такой модернизированный синтаксис оператора ОВА\У\И позволя- 
ет при построении отрезка или дуги использовать в качестве пара- 
метров не приращения координат относительно последней выве- 
денной точки (как в Зреснит-Бейсике), а абсолютные координаты 
конечной точки. Так, инструкции РЁЕОТ 10,25: ОКА\М/ 30,40 и 
РЕОТ 10,25: ОКА\/ ТО 40,65 выполнят одинаковые действия. 

Смысл третьего параметра — угловой величины в радианах — 
остается таким же, как и для стандартной команды ОКАМ/У. 


В Веа Вазс все графические операторы приобретают новое 
полезное свойство: в качестве их параметров можно использовать 
не только физические координаты экрана (начало отсчета — ле- 
вый нижний угол основного экрана, единица отсчета — один 
пиксель), но и математические координаты. То есть графические 
построения в Веа Ваз1с можно делать в системе координат с про- 
извольной единицей измерения (больше или меньше пикселя), 
которая определяется специальными переменными ХВС и УВС. 
Начало отсчета математической системы координат задается дру- 
гой парой переменных — ХО$ и \УО$ — и может быть расположено 
в любой точке экрана и даже за его пределами. Так, при ХО$=Х®КС/2 
и УО5=УВС/2 начало координат будет находиться в центре экрана, 
а при ХКС<ХО$<0 и УКС<\О$<0 — за его пределами. При старте 
Вема Вазс переменные, задающие математическую систему ко- 
ординат, уже определены и имеют стандартные значения: 
ХюС=256, УКС=176, ХО$=0 и УО$=0. 

Во всех последующих примерах программ, работающих с гра- 
фикой, предполагается, что переменные ХО5, \О05$, ХС и УЮС имеют 
стандартные значения. 


Ве Ваяс восполняет существенный недостаток графики 
эреснит-Бейсика — вводит операторы заливки замкнутых контуров. 


ЕЖЕ [<список атрибутов>;] <х>,<у> 


Оператор РН. осуществляет заливку области экрана, 
ограниченной замкнутой линией. Задается. эта область указанием 
‚координат любой точки внутри нее (параметры «<х>,‹у>). ЕЦ 
присваивает знакоместам, «задетым» областью заливки, атрибуты, 
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указанные в «списке атрибутов». Заливка осуществляется цветом 
тона либо цветом фона в зависимости от того, какой из атрибутов 
— №МК или РАРЕЮ — стоит первым в «списке атрибутов». Попробуем 
набрать и выполнить программку: 


10 СЮСЕЕ 100,100,70 
20 РЫ МК 5; 100,100 


и получим на экране голубой круг. 
Заливка цветом фона (РЁ РАРЕЮ) как ластиком стирает ранее 
нанесенную заливку цветом тона. Дополним программку строкой 


30 РАЦЗЕ 0: РЦ РАРЕК 4; 100,100 


После нажатия на любую клавишу нарисованный круг пере- 
красится. 

Если опустить у ключевых слов МК или РАРЕК стоящий после 
них параметр (код цвета), то закраска будет происходить текущими 
цветами тона или фона. 

Оператор ЕРШ. без «списка атрибутов> закрашивает указанную 
область текущим цветом тона. 


После выполнения оператора Е№ можно подсчитать количество 
пикселей, подвергшихся перекраске. Это значение возвращает 


функция 
ЕШЕЕС () 


Она не требует аргументов, результат ее определяется пос- 
лелним выполненным оператором РИ. Функция РЫЕО() может 
использоваться, например, для определения площади закрашен- 


ной фигуры. 
В Ваа Ваз1с, как и в других диалектах Бейсика для 7.Х 5ресиит, 
присутствуют операторы скроллинга графического окна экрана*: 


ВОГ: <режим > [,<шаг>]|;<х>,‹у>;<ширина>, «высота > | 
$СКОН. [‹режим > [, <шаг>]|[;<х>,‹у>; <ширина>, < высота > ] | 


Оператор КОЦ. выполняет циклический скроллинг, при котором 
изображение, пропадлающее за границей окна, выплывает с про- 
тивоположной стороны, а $СКОЦ — обычный скроллинг, уводя- 
щий изображение безвозвратно. | 

Окно экрана, над которым производятся эти действия, задается 
четырьмя параметрами: <х> и <у> — координаты в пикселях верх- 
него левого угла окна; «ширина> — ширина окна, задаваемая в 
стандартных знакоместах (лиапазон от 1 до 32}; <высота> — высота 
окна в пикселях. 

Значения параметров <х> и <у> операторы скроллинга округля- 
ют до чисел, кратных восьми, в сторону увеличения. 

Если координаты и размеры окна не указывать, то действие 
оператора будет распространяться на весь экран. 

Расстояние в пикселях, на которое будет осуществлено смеще- 
ние изображения в окне при однократном выполнении операторов 


Окна; в которых осуществляется скроллинг экранного изображения, не следует 
путать с текстовыми окнами, в которые направляется вывод символьной инфор- 
мации. 
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скроллинга, задается параметром «шаг>. Допустимый диапазон его 
значений: от 1 до 256 для горизонтальных перемещений и от 1 до 
176 — для вертикальных. По умолчанию параметр «шаг> 
принимает значение 1. 

Параметр <‹режим> задает направление скроллинга и область 
его действия: изображение в окне может сдвигаться без смещения 
атрибутов, со смещением атрибутов, а также возможен сдвиг 
атрибутов при неизменной картинке. В последнем случае сдвиг 
производится на 8 пикселей независимо от того, какое значение 
задано в параметре <шаг>. Зависимость режимов работы операто- 
ров КОЁШ и $СКОЁЁ от значения параметра <‹режим> приведена в 
табл. 17. 


Таблица 17. Режимы работы операторов ВОЦ. и $СВОЦ.. 


‹ влево ' только атрибуты 


5 м: 
=. мо 
х 
[" 


2 | только атрибуты 
3 | вверх | только атрибуты 
4 вправо. только атрибуты 
5 изображение без атрибутов 
6 | вниз изображение без атрибутов 

7 вверх изображение без атрибутов 

8 вправо ' изображение без атрибутов 
9 


` влево | все изображение | 
10 вниз все изображение 


| 11 | вверх все изображение 
12 | вправо | все изображение | 


Е ЕЕ Е Е СЕНЕ ЕЕ ОБЕ РЫНКЕ 


Единственное синтаксическое различие между операторами 
КО и $СКОЁШ заключается в том, что последний можно использо- 
вать вообще без параметров. При этом происходит скроллинг всего 
экрана вверх на 8 пикселей (одну символьную строку} вместе с 
атрибутами. 


УПРАВЛЕНИЕ ПРОГРАММОЙ 
|+...ТНЕМ...ЕЕ$Е, СО ТО ОМ, СО $ИВ ОМ, ОМ 


_ В 5ресиат-Бейсике ветвление программы реализуется с 
помощью конструкции ...ТНЕМ и операторов ФО ТО и СО $58. В 
Веа Ваз1с, благодаря дополнению оператора !...ТНЕМ ключевым 
словом ЕЁЗЕ, появилась возможность в большинстве случаев 
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вообще отказаться от операторов нерехода. Расширенная версия 
условного оператора записывается так: 


\Е <условие> ТНЕМ [:] <блок операторов 1> |:] 
[ЕЁЗЕ [:|] «блок операторов 2>] 


В зависимости от того, истинно или ложно «усповие>, вы- 
полнится, соответственно, либо «блок операторов 1>, либо альтер- 
нативный «блок операторов 2>. 

Вся конструкция должна быть записана в одну строку. 

Каждый из блоков операторов внутри себя может содержать еще 
конструкции 1Е...ТНЕМ...ЕЁ$Е, причем глубина таких вложений неог- 
раничена. В этом случае, если на каком-либо уровне вложения 
< блок операторов 1> не предполагает наличия альтернативного <бло- 
ка операторов 2», то на этот уровень нужно принудительно ввести 
«пустой» ЕЁЗЕ. Это необходимо сделать во избежание неоднознач- 
ности в определении, к какому именно из Е...ТНЕМ относится 
данный ЕЁ ЗЕ: 


100 [Е Ё>15 ТНЕМ: 
|Е < ТНЕМ (ЕТ К=Ё*]: 
ЕЁЗЕ: 
ЕЁЗЕ ЕТ К=0 


Кроме конструкции !...ТНЕМ...ЕЁЗЕ, Веа Ваз$1с располагает и 
другими операторами, организующими разного рода ветвления 
программ. 


СО ТО ОМ <числовая переменная> ; <список адресов перехода> 


Параметр «список адресов перехода> представляет собой перечень 
номеров строк, записанных через запятую, например: 


10 СО ТО ОМ 1:0,150,345 


Значение первого параметра задает порядковый номер адреса, 
по которому нужно передать управление. Таким образом, приве- 
денная программная строка равносильна фрагменту: 


10 14: /=1 ТНЕМ СО ТО 70 
20 1: /=2 ТНЕМ СО ТО 150 
30 [Е }=3 ТНЕМ СО ТО 345 


«Список адресов перехода> может иметь произвольную длину. 
Если значение «числовой переменной> превысит количество элемен- 
тов в списке, оператор будет проигнорирован, управление переда- 
стся следующей за ним строке. При отрицательном значении 
«числовой переменной» знак «минус» отбрасывается. 


СО $0В ОМ ` <чисповая переменная> ; <список адресов перехода» 


Этот оператор отличается от предыдущего тем же, чем обычный 
СО $3В отличается от СО ТО. 

Обе инструкции дают возможность компактно организовывать 
ветвление программы и просто незаменимы при создании разного 
рода меню. 
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Локальные переходы в пределах одной строки позволяет осуще- 
ствлять оператор варианта 


ОМ <числовая переменная > : < оператор > : [<оператор>: ...] 


Из всего списка операторов, расположенных за ОМ, будет вы- 
полнен только один — тот, чей порядковый номер в строке задан 
значением параметра «чисповая переменная». После этого управ- 
ление будет передано следующей за конструкцией ОМ строке прог- 
раммы (разумеется, если не произошло принудительного перехода 
или вызова подпрограммы”*). 

Основное достоинство оператора ОМ — его универсальность. К 
примеру, с его помощью можно организовать многовариантное 
переопределение переменных (используя способность оператора 
ГЕТ обслуживать список переменных произвольной длины): 


100 ПЧРАТ } 

110 ОМ ЕЕТ А=484, В=50, С=88: ЕТ А=242, В=12, С=82: 
ЕТ А=212, В=85, С=06 

120 РАМТ А, В, С 


Интересным свойством будет обладать приведенная в примере 
конструкция, если ее поместить в цикл РОК...МЕХТ, в котором пере- 
менная цикла и параметр оператора ОМ совпадают. Одним словом, 
спектр применения оператора ОМ ограничен лишь фантазией 
программиста. 


ОБРАБОТКА ОШИБОК, ТРАССИРОВКА, ЧАСЫ 


ОН ЕЮКОВ, ТРАСЕ, СЕОСК, ИМЕ$ {) 


ОМ ЕКВОВ «‹номер строки> 


Этот оператор не производит явных действий в момент вы- 
полнения. Он лишь указывает интерпретатору номер строки, с 
которой начинается подпрограмма обработки ошибок. Если во 
время выполнения программы возникнет ситуация, приводящая к 
выдаче сообщения об ошибке, управление будет немедленно пере- 
дано подпрограмме, начинающейся с указанной строки. Операто- 
ры ОМ ЕЮРОЮ 0, ВУМ и СТЕАЮ восстанавливают обычный режим 
обработки ошибок. 

Задать подпрограмму обработки ошибок можно и непосредст- 
венно сразу после оператора ОМ ЕККОК, используя следующий 
формат: 


ОМ ЕККОК: «оператор>:<оператор>:...«оператор>: КЕТУЮМ 


Для наглядности вместо набора операторов можно просто ука- 
зать имя процедуры обработки ошибок, а саму процедуру 
оформить отдельным программным модулем. 


Стоящий следом за ОМ список операторов может содержать также обращения к 
процедурам, вызываемым по именам (их мы рассмотрим несколько позже). В 
этом случае он будет выступать уже в следующей «весовой категории» операторов 
управления программой после СО $98 ОМ. 
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Проанализировать причины, приведшие к ошибке, и опреде- 
лить место в программе, где она произошла, помогут специальные 
системные переменные Ве Ваз1с. К ним, в отличие от обычных 
системных переменных 7Х 5ресНиш, имеется доступ по именам, 
как к обычным числовым переменным: переменная с именем 
ЕЮКОК содержит код возникшей ошибки (информация о кодах 
ошибок приводится в Приложении 3). Переменные ИМО и $ТАТ 
указывают, соответственно, номер строки и номер оператора в 
строке, где была прервана работа программы. Эта информация 
позволяет предусмотреть подходящую реакцию на ошибку в 
зависимости от вызвавшей ее причины: 


10 ОМ ЕККОК 1000: ВЕТ 1=1 
30 РОК К=1 ТО 10000 
40 РЕОТ ИМТ (257+ НО) ИМТ (178=МО) 
50 МЕХТ К: $ТОР 
1000 РЕМ Начало подпрограммы обработки ошибок 
1010 ВЕЕР 1,69 
1020 Е ЕРКОЮК=11 АМО ЦМО=40 ТНЕМ РАМТ АТ 0,0;.: /=)-+1: 
ЕЕЗЕ ВЕЕР 0.5,12 
1030 КЕТУЮМ 


Фрагмент программы (строки 30...50} выводит на экран точки 
со случайными значениями координат, которые могут выходить за 
допустимые пределы (Х>255, \>175). Обычно попытка поставить 
точку за пределами экрана приводит к ошибке с выдачей сооб- 
щения Ифедег оц! о! гапде. Но в данном примере строка 10 пред- 
писывает в случае ошибки обращаться к подпрограмме, начинаю- 
щейся со строки 1000. В ней анализируется, вызвано ли преры- 
вание ошибкой выхода за пределы экрана, и если «да», то на экран 
выводится номер 1! такого «выхода», после чего управление возвра- 
щается в основную программу. Если попытаться сгенерировать 
ошибку с другим кодом, например, нажать ВгеаК, то программа, 
подав звуковой сигнал (оператор ВЕЕР в строке 1020), продолжит 
свою работу. 

На время выполнения подпрограммы обработки ошибок «анти- 
ошибочный иммунитет» отключается. Поэтому, если не предусмот- 
реть необходимой защиты, то при нажатии клавиши ВгеаК прог- 
рамма остановится, поскольку переход к подпрограмме обработки 
ошибок произойдет еще до того, как будет отпущена клавиша. Во 
избежание такой ситуации в начале подпрограммы обработки 
ошибок нужно всегда организовывать задержку, достаточную для 
того, чтобы успеть освободить клавишу ВтеаК. В нашем примере 
это сделано в строке 1010 с помощью оператора ВЕЕР, звучащего в 
неслышимом диапазоне частот (ВЕЕР не реагирует на нажатие 
Вгеак). 

Вернуться из подпрограммы обработки ошибок можно двумя 
способами. Первый способ — по ВЕТОКМ (как в приведенном при- 
мере), когда управление передается оператору, следующему за тем, 
который вызвал ошибку”, а ОМ ЕВКОК опять активен — готов к 


* _ Внашем примере это оператор МЕХТ К. 
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охоте за онгибками. Второй способ — по СОМПИМИЕ, после которого 
действие оператора ОМ Е®КОЮ отключается, а управление (за релд- 
кими исключениями) вновь возвращается оператору, вызвавшему 
ошибку. Повторное выполнение этого оператора приведет к при- 
вычному останову программы с выдачей сообщения об ошибке. 
Пользуясь этими двумя способами, в подпрограмме обработки 
ошибок можно предусмотреть выбор: в зависимости от места 
возникновения ошибки или ее типа работа программы продолжа- 
ется либо прекращается. 

Следует помнить, что, возвращаясь из подпрограммы по 
СОМТМУИЕ, необходимо предварительно снять со стека СО $ЦВ адрес 
возврата из подпрограммы, так как оператор СОМИМУЕ сам этого не 
делает. Операцию по очистке вершины стека СО $\В производит 
оператор РОР (его работа описана далее}. Поэтому возврат по 
СОНПИМУЕ в приведенном выше примере должен выглядеть так: 


1030 РОР: СОМИМОЕ 


После того как в программе встретится оператор трассировки 
ТВАСЕ <номер строки» 

или 

ТКАСЕ: ‹оператор>:‹оператор>:... ‹оператор>: КЕТОЮМ 


— интерпретатор, после каждого выполненного оператора, будет 
делать переход к подпрограмме, расположенной с указанного <но- 
мера строки> или размещенной непосредственно за оператором 
ТРАСЕ после двоеточия. Это будет происходить до тех пор, пока в 
программе. не встретится оператор ТКАСЕ 0 или СЁЕАК. Пользуясь 
этим свойством, можно замедлять выполнение программы, 
отслеживать по ее ходу изменения значений переменных, следить 
за состоянием клавиатуры (не нажималась ли какая-либо 
клавиша) и т. д. Поместим в начало предыдущего примера строку 


1 ТРАСЕ 2000 
— а также добавим следующий фрагмент: 


2000 КЕМ Подпрограмма трассировки 

2005 МИМОО\/У 1;140,175,115,64 

2010 УЛМОО\/ 1: СЕЗ$: СУЕ 4,8: ОЕРАЧЁТ К=0 
2020 15Т МО ТО ИМО: РАМТ АТ 7,0;"К="Ж 
2030 РАМТ #0; АТ 0,0; "Зита "МО; :"5ТАТ; 
2040 РАЦЪЗЕ 0: СЕ$: УИМОО\\ 0: СЫРЕ 4,8 

2050 КЕТУЮМ 


Теперь можно выполнить программу в пошаговом режиме. В 
правом верхнем углу экрана (строки 2005, 2010) будут выводиться 
исполняемая в ‘настоящий момент строка программы и текущее 
значение переменной К (строка 2020). В нижней части экрана. 
будет выводиться номер строки и номер выполняемого оператора, 
в ней (строка 2030). Аля осуществления следующего шага необ- 
ходимо нажимать клавишу Ещег (строка 2040). Заменив в 2040-й 
строке оператор РАЦЗЕ 0 на Ш ИМКЕУ$ ="1" ТНЕМ РОР: $ТОР, можно 
сделать так, чтобы программа работала без пауз и останавливалась 
при нажатии клавиши 1. 
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Если нужно в ходе выполнения программы наблюдать за изме- 
нениями значений переменных, целесообразно в начале подпрог- 
раммы трассировки инициализировать их оператором БЕРАЦИТ. 
Иначе возможен останов программы по ошибке с сообщением 
УапаЫе по} юипа. 


СЬОСК <число|строка символов> 


Этот оператор управляет часами с «боем», встроенными в 
Веа Ваз1с: устанавливает текущее время, высвечивает его в верх- 
нем правом углу экрана, задает контрольный час, минуту и секун- 
ду, когда необходимо подать жа сигнал и/или передать уп- 
равление подпрограмме. 

При загрузке Веа Ваз1с устанавливается время 00:00:00. Для 
переустановки времени нужно выполнить оператор СЁЕОСК в следу- 
ющем формате: 

СЬОСК <"НН[:]ММ[:] $5" > 
— где НН — часы, ММ — минуты, $$ — секунды. Разделители 
(двоеточия) между цифрами можно опускать, достаточно ввести 
6 цифр. В случае, если количество цифр окажется меньшим, вме- 
сто недостающих будут подставлены нули. Так, например, 
СЬОСК "173" установит время 17:30:00. 

Для настройки будильника, который в назначенное время 
подаст звуковой сигнал и/или передаст управление подпрограмме, 
к строке символов, залающей время, в первую позицию добавляет- 
ся символ А: 


СЬОСК "А09:45" 


Режим работы часов задается оператором 
СЬОСК ‹код режима> 
Всего имеется 8 режимов работы, они перечислены в табл. 18. 


Таблица 18. Режимы работы оператора СЕОСК. 


ОБРАБОТКА ОШИБОК, ТРАССИРОВКА, ЧАСЫ 


Так, к примеру, СЁОСК 7 установит режим, в котором текущее 
время будет высвечиваться на экране, а в заданный момент про- 
звенит будильник и произойдет обращение к подпрограмме. Но- 
мер строки, с которой начинается подпрограмма, задается операто- 
ром вида: 


СЕОСК ‹номер строки> 


— где <номер строки> — число от 8 до 9999 (числа от 0 д 7 
зарезервированы под номера режимов}. Возможно также разме- 
щение подпрограммы непосредственно за оператором СЁОСК через 
двоеточие: 


СЁОСК: «оператор>:<оператор>:...«оператор>: РЕТУЮМ 


Следует учитывать, что часы, прежде чем 
«зазвенеть» при достижении контрольного 
времени, ждут окончания выполнения теку- 
щей строки программы, что иногда может 
длиться долго (например, ввод с клавиату- 
ры, выполнение оператора РАЦЗЕ). 

Часы Вема Вазс поддерживают также 
символьную функцию 


ТИМЕ$ () 


— возвращающую значение текущего вре- 
мени в виде строки символов, в которой часы, минуты и секунды 
разделены знаком двоеточия. 

Нужно иметь в виду, что часы приостанавливают отсчет вре- 
мени при генерации звукового сигнала оператором ВЕЕР и онпе- 
рациях с внешними устройствами (в частности, магнитофоном). 

Описанные свойства оператора СЁЕОСК позволяют создавать про- 
граммы, которые через заданные интервалы времени приоста- 
навливают работу, проделывают некие запрограммированные дей- 
ствия, а затем снова продолжают свое дело. Предположим, что к 
компьютеру подключен цифровой прибор, с которого необходимо 
снимать данные каждые 10 секунд. Основная программа про- 
изводит обработку данных (к примеру, выводит на экран диаграм- 
му показаний прибора, делает статистический анализ и т. д.). А 
подпрограмма, к которой происходит обращение в заданное время, 
считывает очередное показание прибора (например, из порта 104) 
и номещает его в специальный массив. Последний служит кольце- 
вым буфером для согласования времени обработки данных в 
основной программе с частотой их поступления и3 подпрограммы. 
Подпрограмма также устанавливает новое значение контрольного 
времени для снятия очередного показания прибора. Программа 
обслуживания прибора может выглядеть так: 


10 СЁОСК 6: ВЕМ Установка режима работы часов 

20 СЕОСК:РоЖеаа: КЕТОЮМ: КЕМ задание имени процедуры 
30 ТЕТ Мах=3000: РЕМ Задание размера массива-буфера 

40 [М А(Мах): КЕМ Инициализация массива 

50 ВЕТ Мах=0, З«ах=0: КЕМ Инициализация указателей массива 
60 РРОС Ро ЧКеаа: ЕЕМ Вызов процедуры считывания 
100 ЕТ Мах=Мах+1: Е М&х>Мах ТНЕМ (ЕТ Мах=1 
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120 1: А(Мах)=0 ТНЕМ СО ТО 120: КЕМ Ожидание новых данных 
130 ЦЕТ Уаме=А(М5х): ЕТ А(М9&х)=0 


... (обработка показаний прибора) 
7000 СО ТО 100: КЕМ Возврат к началу цикла 


9000 РЕР РКОС Ро{Кеаа: КЕМ Процедура считывания показаний 
прибора 

9010 ГЕТ ЯЗах=$«4х+1: Е Зах>Мах ТНЕМ (ЕТ Зах=1 

9030 ЦЕТ А($«4х)=!Ч 104: КЕМ Считывание данных из порта 

9040 СГОСК "00:00:00": КЕМ Сброс часов 

9060 СЕОСК "А00:00:10": КЕМ Время следующего «звонка» 

9070 ЕМО РКОС 


В данном примере первые показания снимаются при прину- 
длительном обращении к подпрограмме считывания данных (строка 
60), а все остальные — при вызове этой подпрограммы по преры- 
ванию от таймера. Если основная программа опережает поступ- 
ление данных, она ожидает их в бесконечном цикле (строка 120). 

Другой пример использования оператора СЕОСК и функции 
ПМЕ$ можно найти в разделе, описывающем циклы типа ОО...1ООР 
(стр. 266}. 


ПРОЦЕДУРЫ 


ОЕР РКОС, ГОСА(, КЕР, ОАТА, КЕАО, КЕАО ЦМЕ, 1ТЕМ(), ЕМО РКОС, 
РКОС, Ы$Т РКОС 


В Ваа Ваз1с по сравнению с другими диалектами Бейсика для 
ГХ $Зресиат инструмент процедур реализован, пожалуй, наиболее 
удачно (см. стр. 176, 222). 

Процедуры описываются блоком текста программы, состоящим 
из оператора-заголовка, собственно тела и оператора завершения 
процедуры: 

ОЕЕ РКОС «имя процедуры> 

(«список формальных параметров> |РАТА] 
ОЕРАОЕТ < задание значений формальных параметров по умолчанию > 
[ОСАЕ ‹список локальных переменных и массивов номер 1>] 

«операторы, [КЕАО [ММЕ ] <переменная>]> 
[РЕТОВМ] 


[ОСАЕЁ < список локальных переменных и массивов номер М>] 
«операторы» 
[РЕТОВМ] 


ЕМО РКОС 


«Имя процедуры> может иметь произвольную длину и состоять из 
любых символов (кроме псевдографики, ООС, символов пробела и 
ключевых слов), но начинаться оно должно обязательно с буквы. 
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При этом оно может совпадать с именами переменных как в основ- 
ной программе, так и в самой процедуре. Блок описания процедуры 
может нахолиться в любом месте программы, но оператор заголовка 
обязательно должен быть первым оператором в строке. 


Возврат из процедуры может происходить в любой ее точке по 
оператору ЮЕТУЮМ либо в конце — по ЕМОРВОС. Оператор 
ЕМО РКОС, помимо функции возврата, выполняет еще и роль мар- 
кера конца тела процедуры (этим он и отличается от КЕТОЕМ): если 
процедура встроена в середину текста основной программы, пос- 
ледняя, наткнувшись на заголовок процедуры, «перепрыгнет» че- 
рез нее. Точкой «приземления» послужит оператор, следующий за 
ЕМО РКОС. Если же интерпретатор не сможет найти конца процеду- 
ры, он прервет выполнение программы сообщением № ЕМО РЮОС. 


Листинг процедуры может быть выведен на экран отдельно от 
всей программы оператором 


$Т РКОС ‹имя процедуры> 
Вызов процедуры осуществляется слелдующим образом: 
|РВОС]| <имя процедуры» |[<‹список фактических параметров? ] 


В этих конструкциях полностью отсутствует какая бы то ни была 
привязка к номерам строк. Эта особенность процедур в сочетании 
с возможностью принимать данные из основной программы пос- 
редством списка параметров позволяет создавать автономные про- 
граммные модули. Олнажды разработанные, они могут быть ис- 
пользованы в других программах практически без изменений. 
Достигается это объявлением внутренних переменных процелуры 
локальными, что позволяет уйти от проблемы совпадения их имен в 
процедуре и основной программе. Причем в Ваёа Ваз1с (в отличие, 
например, от Газег Ваз1с и МедаВаз1<) они действительно «до кон- 
ца» локальны. 

Переменные объявляются локальными с помощью оператора 
ГОСАЕ, который может располагаться в любом месте процедуры и 
повторяться с разным списком переменных не один раз. Список 
представляет из себя перечень имен переменных, разделенных 
запятыми. Переменная, указанная в ГОСАЕ, теряет свое прежнее 
значение (если она его до этого имела} и становится неопределен- 
ной. Ее можно заново инициализировать и использовать в теле 
процедуры с новым содержанием. После возврата в основную 
программу ей будет возвращено прежнее значение: 


10 (ЕТ А=1 

20 РКОС Тез 

30 РЕМТ А,О: $ТОР 

100 РЕР РКОС Тез 

110 ТЕТ О=5: КОСАЁ А: РЕРАЦЁТ А=10 
120 РАМТ А.О 

130 ЕМО РКОС 


В процедуре Тез! вводится новая переменная О и объявляется 
локальной определенная в основной программе переменная А 
(строка 110). Оператор РЕМТ (строка 120} напечатает два числа: 10 


261 


ВЕТА ВАЗЮ _ 


и 5, что соответствует значениям переменных`А ‘и О в процедуре. 
После возвращения из процедуры оператор РЮМТ (строка 30) огла- 
сит новую обстановку: переменная А без потерь пережила «про- 
гулку» в процедуру и сохранила прежнее значение; переменная О 
вынесла значение из процедуры, так как не была объявлена в ней 
локальной. 

Кроме переменных, в процедуре можно объявлять локальными 
и массивы (еще один плюс Ве Ва51<), после чего их необходимо 
инициализировать оператором ОМ. Процедура, в которой встре- 
тятся такие строки: 


110 ГОСАЕ А(),5$ 
120 ОМ А(10,20): САМ $$(5,40) 


— создаст два локальных массива: числовой с именем А и символь- 
ный с именем $$. Если последний не объявлять как массив, проце- 
дура будет воспринимать $$ как простую символьную переменную. 
Значения, присвоенные в процедуре элементам локальных мас- 
сивов, при возврате из нее будут утрачены, а содержимое од- 
ноименных массивов в основной программе восстановлено. 

В случае многократного вложения процедур (когда одна вызы- 
вает другую, та, в свою очередь, третью и т. д.) объявленные на 
одном из уровней вложения локальные переменные и массивы 
могут использоваться всеми процедурами более низкого уровня, 
оставаясь «невидимыми» для «верхних» процедур. 

Как мы уже упоминали, список формальных параметров проце- 
дуры указывается после ее имени в операторе-заголовке. Значения 
формальным параметрам присваиваются посредством приведения в 
операторе вызова процедуры списка фактических параметров, раз- 
мещенных через запятую после имени процедуры. Фактические 
параметры могут быть заданы как з явном виде, то есть числовыми 
или символьными константами, так и переменными, элементами 
массивов, выражениями. Разумеется, все переменные и элементы 
массивов должны быть определены к моменту вызова процедуры. 

При вызове процедуры значения фактических параметров при- 
сваиваются по порядку соответствующим переменным из списка 
формальных параметров. Все переменные, входящие в список 
формальных параметров, автоматически становятся локальными. 


В общем случае допустимо, чтобы число фактических парамет- 
ров в операторе вызова процедуры было меньше числа формаль- 
ных параметров из описания процедуры. При этом «лишние» 
переменные из заголовка процедуры просто останутся в ней неоп- 
ределенными. Однако имеется возможность с помощью описанно- 
го ранее оператора РЕРАЧЁТ задать значения пропущенных пара- 
метров, которые будут приниматься ими по умолчанию. Если же 
Вы хотите при вызове процедуры опустить один или несколько 
фактических параметров, стоящих в середине списка, то место в 
списке каждого из них необходимо «пометить» лишней запятой. 


В том случае, когла вообще невозможно заранее предсказать 
количество передаваемых в процедуру фактических параметров, 
список формальных параметров в ее заголовке заменяется одним 
ключевым словом ОАТА. Считывание в процедуре значений из 
такого «резинового» списка необходимо осуществлять оператором 
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КЕАО. Для того чтобы определить тип очередного элемента данных 
и обнаружить конец списка, используется функция ПЕМ(). Она не 
имеет параметров и возвращает 1, если в списке параметров 
следующим стоит символьное значение, 2 — если числовое зна- 
чение, и «разрешается» нулем при достижении конца списка. 
Избежать использования кавычек при пересылке строковых зна- 
чений позволяет ключевое слово ИМЕ, помещаемое в процедуре 
после РЕАР (например, КЕАО ИМЕ А$)*. 

Приведем пример пакета процедур, использующих описанные 
выше формы приема параметров: 


80 ОРЕР РРОС Рита РАТА: ГОСАЕ А,В,С 
90 РО МИНЁЕ ПЕМ()<>0 
100 КЕАВ А: КЕАР В: ЮЕАР С 
110 ГЕТ О=В*В—4*А*С 
120 Е О>=0 ТНЕМ РКОС Юеа!: ЕЁЗЕ РКОС Сотр/ех 
130 ГООР: ЕМО РКОС 
140 ОЕР РКОС Кеа!: ГОСАЁ Х1,Х2 
150 ЕЕТ Х!=(-В+5@Ю 0)/(2*А) 
160 ЕТ Х2=(-—В-$ОЮ 0)/(2*А) 
170 РКОС Кос} ‚,Х1,Х2: КЕМ Первый параметр опущен 
180 ЕМО РКОС 
190 РЕЕ РКОС Сотрех: ГОСАЁ Кейт 
200 ГЕТ ВКе=-—В/(2*А), т=$ОЮ АВ$ 2/(2*А) 
210 РКОС Юос} 1,Кет 
220 ЕМО РКОС 
230 ОЕР РКОС Кос} Стр!/,А,В 
240 РЕРАЧЁТ Стр|=0: РАМТ "Кооф5:", 
250 Е Стр! ТНЕМ РАМТ "Х1=";А;"+";В` т", "Х2=";Ау—";Вр И": 
ЕЕЗЕ РЮМТ "Х1=”;А,”Х2=";В 
260 ЕМО РКОС 


Этот пакет процедур вычисляет корни Х! и Х2 квадратного 
уравнения А*+Х! 2+В*Х+С. Процедура Рита в цикле (строка 90) 
считывает очередные коэффициенты уравнения (строка 100), рас- 
считывает по ним дискриминант (строка 110) и, в зависимости от 
его знака, вызывает одну из двух процедур: Веа! или Сотрех (стро- 
ка 120). Каждая их них в свою очередь обращается к процедуре 
вывода результатов Кос}. Но значения, передаваемые в эту проце- 
дуру. имеют разный смысл: в первом случае это действительные 
корни уравнения, во втором — действительная и мнимая части 
сопряженных комплексных корней. Поэтому в процедуру Юос1 
передается признак «комплексности» корней Ве: в зависимости от 
его значения, процедура выбирает вариант вывода на экран (стро- 
ка 250}. Обращение к этому пакету может выглядеть, например, 
так: РКОС Рита 3,10,1,1,2,3 Количество параметров при этом должно 
быть кратно трем. 


* Конструкция ВЕАО НМЕ А$ и функция ПЕМ() работают и с обычными ОАТА- 
списками. К сожалению, при этом ПЕМ() не в состоянии определить тип первого 
элемента о редчего ОАТА-списка. Следовательно, и после выполнения опера- 
тора КЕЗТОВЕ она тоже вернет нулевое значение. Впрочем, этот недостаток в 
ЕЫ функции несложно обойти. Достаточно поместить в самое начало каждого 

АТА-списка элемент одного и того же типа. - 
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Веа Ваз1с позволяет не только пересылать значения параметров 
из вызывающей программы в процедуру, но и принимать из нее 
результаты расчетов, не прибегая при этом к глобальным перемен- 
ным. Это достигается путем передачи процедуре ссылки на соответ- 
ствующий фактический параметр. Если при передаче параметров 
обычным порядком (по значению) в процедуре создается времен- 
ная область локальных переменных, в которую и копируются зна- 
чения фактических параметров, и которая уничтожается при воз- 
врате из процедуры, то при передаче значения по ссылке процеду- 
ра «получает в руки» лишь указатель на соответствующий 
фактический параметр (его адрес в основной области перемен- 
ных). Работая с таким локальным параметром-ссылкой, процедура 
фактически напрямую «общается» с соответствующей переменой 
из основной программы, лишь «называя» ее своим, локальным 
именем. Все изменения, производимые с такой локальной пере- 
менной, автоматически отражаются на содержимом ее прообраза 
из вызывающей программы. Для указания того, что передача 
параметра производится по ссылке, используется ключевое слово 
КЕР (теетепсе), которое помещается перед каждым соответству- 
ющим формальным параметром в заголовке процедуры: 


10 ТЕТ А=5, В=10, Х=1, У=2: РАМТ А,В,Х,У 
20 РКОС Тез! А,В: РАМТ А,В,Х,У 

40 ОЕР РКОС Те${ КЕР Х, КЕР У: КОСАЁ 2 
50 (ЕТ 2=Х, Х=Х+У, У=2»у 

60 ЕМО РКОС 


В этом примере все действия, производимые в процедуре над 
локальными переменными Хи У, приводят к изменению соответст- 
вующих им переменным А и В: значения последних, выводимые 
операторами РЕАМТ до вызова процедуры и после нее, будут 
различными, в то время как переменные Х и У в основной прог- 
рамме не изменятся, несмотря на то, что одноименные им пере- 
менные были использованы в процедуре. 

Такой способ пересылки параметров позволяет передавать про- 
цедуре массивы, указывая после ЮЕЁ их имена с пустыми скоб- 
ками. Налицо серьезная экономия памяти: процедура не создает 
копии массива, а работает с оригиналом, лишь пользуясь его 
локальным «псевдонимом». 

При обращении к процедуре можно опускать служебное слово 
РКОС, таким образом фактически расширяя арсенал операторов 
Ваа Ваз1с. К примеру, можно написать собственную процедуру с 
именем ВОХ, рисующую на экране прямоугольник, и обращение к 
ней по синтаксису ничем не будет отличаться от аналогичных 
операторов, скажем, СЮСЕЕ. Заметим однако, что эта особенность 
интерпретатора может сыграть с программистом злую шутку: пос- 
кольку имя процедуры может состоять практически из любого 
набора символов, редактор Ве{а Ваз1с способен «проглотить» ка- 
кую-нибуль синтаксически неверную строку, приняв ее за эк- 
зотическое имя процедуры. 


Ве Ваз1с допускает рекурсию {обращение процедуры к самой 
себе) практически неограниченное количество раз. Но на 
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практике, вследствие переполнения стека адресов возврата и «раз- 
множения» локальных областей переменных, количество рекурсий 
едва ли сможет превысить несколько сотен (при этом скорость 
работы программы значительно снижается). Этого эффекта можно 
избежать, если все параметры в рекурсивную процедуру переда- 
вать по ссылке. 


ЦИКЛ ОО... [ООР 


ОО, ЕООР, УМИЬ, МИНЕЕ, ЕХПИЕ 


Ваа Ваз1с в дополнение к имеющемуся в базовой версии циклу 
типа РОЮ...МЕХТ располагает еще одной подобной конструкцией — 
циклом ОО...ГООР. Как и его «собрат», он также состоит из опера- 
тора начала цикла, тела и оператора завершения цикла. Кроме 
того, в теле цикла могут располагаться один или несколько опера- 
торов выхода из цикла по условию. В общем виде конструкция 
цикла ОО...ЕООР выглядит так: 


ОС [МНИЕ ‹<лог. выражение» [ОМТИ. <лог. выражение>] 
[ЕХИ 11 <лог. выражение > | 


ГООР [УМНЕЕ <‹лог. выражение>] [ММТИ. <лог. выражение >] 


Специфика цикла ОО....ООР заключается в том, что выход из 
него происходит не после определенного количества повторений 
тела цикла, как в РОК...МЕХТ, а по выполнении одного из условий, 
заданных логическими выражениями в начале цикла после опера- 
тора ОО, в конце цикла после оператора ГООР или одним из 
операторов ЕХП ИЕ в теле цикла. Во всех случаях после завершения 
цикла управление передается оператору, стоящему после ГОФР. 


Веа Ваз1с предусматривает два типа критериев выхода из 
цикла, похожих друг на друга «с точностью до наоборот»: 

УУИНЕЕ <лог. выражение> предписывает циклу повторяться, пока 
‹лог. выражение> истинно. Таким образом, У/НЕЕ задает критерий 
продолжения цикла; 

` ОМТЕ <лог. выражение> допускает повторение цикла до тех пор, 
пока <‹лог. выражение> не станет истинным, то есть предписывает 
прекратить цикл, как только будет соблюдено условие. Тем самым 
ОМТЕ задает критерий окончания цикла. 

Налицо очевидная избыточность, поскольку УМТЁ «пог. выра- 
жение> и У/НЕЕ МОТ <лог. выражение> — суть одно и то же. Их 
одновременное присутствие в языке связано с желанием Ее 
большей наглядности при написании программ. 


Место расположения в цикле инструкций У/НЕЕ и УМТЕ опреде- 
ляет, где будет проверяться условие выхода из него. В случае, если 
цикл делает заведомо больше одного прохода, абсолютно безраз- 
лично, где именно будет размещен критерий его продолжения или 
окончания. Если же заранее неизвестно, какое значение — «ис- 
тина» или «ложь» — будет иметь <лог. выражечие> в момент первого 
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вхождения в цикл, то важно, 
где это будет проверяться — 
в заголовке цикла (предус- 
ловие) или же в его конце. 
(постусловие}. Во втором 
случае, независимо от зна- 
чения <пог. выражения», цикл 
сделает, по крайней мере, 
один проход, что может ока- 
заться нежелательным. Поэ- 
тому рекомендуем использо- 
вать циклы 20...ЕООР 
преимущественно с предус- 
ловием — это застрахует от 
возможных ошибок. Тем не 
менее, в ситуации, когла 
анализируемый в <лог. выра- 
жении> параметр вводится 
впервые в теле цикла, необ- 
ходимо завершение цикла 
по условию, заданному опе- 
ратором ЕГООР. Именно та- 
кой вариант мы и предлага- 
ем в приводимом ниже 
примере. В нем осуществля- 
ется поиск одного из корней 
квадратного уравнения ме- 
тодом Ньютона (метод каса- 
тельных): 


10 МРОТ "Коэфф. уравнения: А=”;А,"В=";В,"С=";С 
20 МРОТ "Начальное приближение Х="; Х 


30 ЕТ Ер$=0.001: ВЕМ Погрешность 


40 СЁОСК "00:00:00": РЕМ Установка времени 


50 О 


60 Е А*Х+В=0 ТНЕМ РОР: СО ТО 140: КЕМ Выход из цикла, если 


деление на ноль 
70 ВЕТ ЕЕ(А*Х*Х+В*Х+С)/(А*Х+В) 
80 ГЕТ АБзеп=(МАЁ (ПМЕФ ()(7 ТО 8 


)) > 30) 


90 ЕХП Е АБзеп{: КЕМ Выход, если зацикливание 


100 ВЕТ Х=Хх-РЕ - 
110 ГООР ИМПЬ АВ$ (Е) < Ерз 
120 Е АБ5ет! ТНЕМ РАМТ "Уравнение 


корней не имеет": 


ЕЁЗЕ РЕМТ "Корень уравнения Х=";Х 


130 СО ТО 10 
140 РАМТ "Попытка деления на ноль!" 
150 СО ТО 10 


Запросив вначале все необходимые параметры, программа за- 
дает погрешность. вычислений и обнуляет часы. После этого в 
цикле (строки 50...110)} производятся вычисления, а в конце цикла 
проверяется, достигнута ли заданная точность. Как только погреш- 
ность расчета станет меньше установленной величины Ер$ (строка 
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110). цикл завершит свою работу. Если уравнение не имеет ре- 
шений, программа зациклится. На этот случай предусмотрен кон- 
троль времени (строка 80), и если программа работает болышне 
полминуты (время заведомо достаточное, чтобы найти корень}, 
происходит принудительный выход по ЕХП Е (строка 90). 


При входе в цикл интерпретатор помещает в стек СО $0В адрес 
начала цикла. По достижении оператора ГОФР это значение снима- 
ется со стека, и по нему вновь отыскивается соответствующий 
данному ГООР заголовок ОО. При выходе из цикла по ЕХП !Е адрес 
возврата автоматически снимается со стека. Выход же из тела 
цикла посредством СО ТО или СО ТО ОМ необходимо предварить 
принудительной чисткой вершины стека оператором РОР (см. да- 
лее). В нашей программе есть пример и такого перехода (строка 
60): он предотвращает аварийный останов программы при попыт- 
ке деления на ноль. 

Во избежание конфликтов со стеком запрещены переходы из- 
вне в тело цикла, минуя его заголовок. Если пренебречь этим 
замечанием, выполнение программы будет прервано с выдачей 
сообщения ГОФОР м/НРоч+ ОО или Мо РОР даа. Подобно циклам 
РОК...МЕХТ циклы ОО0....0ООР допускают многократное вложение 
одного в другой. 


Ранее неоднократно упоминался оператор РОР. Рассмотрим его 
подробнее. В общем виде он записывается так: 


РОР [<чисповая переменная | 


Этот оператор снимает с вершины стека СО $УВ значение номе- 
ра строки возврата и присваивает его <чисповой переменной», если 
она указана. Оператор РОР позволяет корректно выйти из подпрог- 
раммы, процедуры РКОС или цикла ОО...ЕООР без дезориентации 
стека. Пользуясь этим оператором, можно возвратиться из проце- 
дуры, вызванной, в свою очередь, из другой процедуры, сразу к 
месту первого вызова. 


Снятый со стека и присвоенный «числовой переменной> адрес 
возврата можно в дальнейшем использовать для перехода в опера- 
торах ©О ТО и ©ОТО ОМ, чтобы попасть в то место. откуда была 
вызвана процедура. 


РАБОТА С ПАМЯТЬЮ 


ОРОКЕ, ОРЕЕК(), РОКЕ, МЕМОРУ$() 


Ваеа Вазс, как и любой другой серьезный диалект Бейсика, 
может оперировать не только одно-, но и двухбайтовыми числами. 
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Для записи в память двухбайтового числа достаточно выполнить 
оператор 


ОРОКЕ ‹адрес›, <чиспо> 


— а для чтения двухбайтового числа применить функцию 


ОРЕЕК (‹адрес>) 


Более того, Веа Ваз1с располагает также средствами записи в 
память целых строк символов (точнее, кодов этих символов), 
начиная с указанного адреса. Для этих целей используется все тот 
же РОКЕ, но с новым синтаксисом: 


РОКЕ ‹адрес>, <строка символов> 


Предусмотрена и обратная функция, воспринимающая всю па- 
мять как одну большую строку кодов символов и выделяющая 
участок памяти, который можно, например, скопировать в сим- 
вольную переменную: 


МЕМОВУ$ () (адрес начала> ТО ‹адрес конца>) 


Все эти новые средства позволяют быстро обрабатывать боль- 
шие порции памяти. Впечатляющим примером может послужить 
такая программка: 


10 (ЕТ А$=$5ТЮМС$ (6144,СН®$ ВМ 01010101) 
20 1ЕТ В$=$ТЕМС$ (6144, СНЮ$ ВМ 10101010) 
30 ОО: РОКЕ 16384,А$: РОКЕ 16384,8В$: ГООР 


В ней функция $1ЮМС$ (к подробному рассмотрению ее мы 
вернемся позже) формирует строки длиной по 6144 символа, коды 
которых представляют собой в двоичном виде чередующиеся нули 
и единицы. А оператор РОКЕ записывает эти коды в экранную 
область памяти (6144 байта — размер этой области без атрибутов). 
Результатом работы такой программки будут быстро бегущие по 
экрану вертикальные полоски. 

Пользуясь оператором РОКЕ и функцией МЕМОКУ$, можно за- 
поминать экранные картинки как символьные строки, а затем 
снова выводить их на экран: 


10 РЕОТ 60,60: ОВАМ/ 100,100,4000 

20 (ЕТ А$=МЕМОЮУ$()(16384 ТО 23295): КЕМ Запоминаем экран 
30 СЕ$: РАМТ "Нажмите любую клавишу" 

40 РАЦЗЕ 0: РОКЕ 16384, А$ 


Возможно также быстрое копирование участков памяти. До- 
полним предыдущую программу строками: 


70 ЕТ А$=МЕМОКУ$ () (18432 ТО 20479) 
80 РОКЕ 16384, А$: РОКЕ 20480, А$ 


Средняя треть экрана будет скопирована в верхнюю и нижнюю. 
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ОПЕРАЦИИ С СИМВОЛЬНЫМИ СТРОКАМИ 


М5ТЕИЧС(), $ТЕИЧС$(), $НЕТ$(), РАМТ #14 


ИЧ5ТЕИМС (< начальная позиция», < строка символов > ‚ < строка-образец> } 


Эта функция осуществляет поиск «строки-образца> в «строке сим- 
волов>, начиная с позиции, заданной параметром «начальная по- 
зиция>. Она возвращает номер позиции в «строке символов», в 
которой первый раз встретился образец. Если поиск оказался 
безуспешным, функция возвратит ноль. Нулевое значение возвра- 
щается функцией также: 


› если значение параметра «начальная позиция» выходит за преде- 
лы базовой строки, 

‚ если <строка-образец> по длине больше исходной «строки симво- 
лов», а также | 

° если одна из строк имеет нулевую длину. 


«Строка симвопов> может иметь произвольную длину, но <строка- 
образец> не должна состоять более чем из 256 символов. 

Для поиска можно использовать шаблон, вставляя В «строку- 
образец> знак #. В этом случае при поиске содержимое позиции, в 
которой стоит #, будет игнорироваться. Например, инструкция 


РЕМТ ИМ$ТЮМС (1, А$, "Бао #Ь”) 


будет искать в строке А$ позиции строк БаоБзЬ, БаоБЬЬ, БаоБсь ИТ. д. 


ИЧ5ТЮИЧС в сочетании с функцией МЕМОКУ\У$ (см. предыдущий 
раздел) позволяет вести поиск в обширных участках памяти компь- 
ютера. 


$ТАМС $ (<чиспо>, < строка символов») 


Функция возвращает символьное значение, состоящее из 
«чиспо> раз повторенных «строк символов». Так, например, 
$7 $(5,а-") сформирует строку "!а--а-а-|а-". 

Функция $ТЮМС$ формирует строку быстрее, чем цикл 
РОК...МЕХТ, и поэтому ее целесообразно использовать совместно с 
оператором РОКЕ для заполнения памяти требуемыми данными. К 
примеру, для быстрой дчистки трети экрана достаточно выполнить 
строку: 


РОКЕ 16384, $ТЮМС$(2048,СН®В$ 0) 
Пригодится функция ТЕН и Аля формирования шаблона в 
операторе Ч$УМС, когда число печатаемых разрядов определяется 


значениями переменных, скажем, переменных ш# и Рг в следую- 
щем примере: 


РАМТ Ц$МС $ТЮМС$ (мт, " #”)+"."+5ТЮМС$ (Е г," 4+"); А 
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УНЕТ$ (<‹номер режима»>, <строка симвопов> )} 


Эта функция в зависимости от выбранного «номера режима» 
(1...7) преобразует <строку симвопов>: избирательно заменяет сим- 
волы другими символами, последовательностями символов или 
удаляет символы из строки. 


Режим 1. В этом режиме функция $НЕТ$ заменяет все пропис- 
ные буквы в «строке символов> на строчные. 


Режим 2. Обратная процедура: заменяет строчные буквы про- 
писными. 


Режим 3. Все прописные буквы заменяются на строчные, а 
строчные — на прописные. 


Режим 4. Функция возвращает строку, в которой все управля- 
ющие символы (с кодами от 0 до 31), за исключением символа 
возврата каретки (код 13), заменены символом точки (СНК$ 46)*. 
Используя этот режим, удобно просматривать память компьютера, 
например, область бейсик-программы: 


РЕММТ $НЕТ$(4, МЕМОЮУ${()(<адрес начала> ТО «адрес конца>)) 


Режим 5. Функция 5$НЕТ$ заменяет кажлый символ с кодом М 
из второй половины таблицы символов (ключевые слова интер- 
претатора) на символ с кодом М-128**. Кроме этого, подобно 
режиму 4, все управляющие символы (как ранее существующие, 
за исключением символа возврата каретки, так и полученные в 
результате преобразования) заменяются символом точки. Заменя- 
ется точкой и символ СН®$ 141, который после преобразования 
должен был бы стать символом возврата каретки (141—128=13). 


Режим 6. Целиком совпадает с режимом 5, за исключением 
одного нюанса: символ возврата каретки уже не находится на 
особом положении. Он, подобно другим управляющим символам, 
обращается в точку. 


Режим 7. Прежде всего в этом режиме функция $НЕТ$ удаляет 
из строки все символы управления выводом на экран (переме- 
щение курсора, изменение позиции печати, управление цвето- 
выми атрибутами) (см. табл. 19). Причем удаляет не только управ- 
ляющие символы, но и их параметры*** (если они предусмотре- 
ны). Так, к примеру, изымая символ позиционирования вывода на 
экран — СНЕ$ 22 (АТ-управляющий), функция $НЕТ$ «подчистит» и 
два обязательно следующих за ним параметра. А вот управляющий 
символ табуляции СНЕ$ 23 (ТАВ-управляющий} будет не только 
удален вместе со своими параметрами, но еще и заменен необ- 
ходимым количеством пробелов. 


* _ См. таблицу символов на стр. 100. 


На уровне двоичного представления чисел это означает, что в любом коде с номе- 
ром больше 127 сбрасывается старший бит. 
Функция 5НЕТ$ в режиме 7 очень «не любит» управляющие символы с парамет- 


рами, выходящими за пределы допустимых значений — их наличие в строке мо- 
жет привести к сбросу компьютера. 


** 


*%* 
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Таблица 19. Замена символов функцией $НЕТ$ в режиме 7. 


перемещение курсора «пустая строка» 
удапение символа (еее) СНЕ$ 32 


15 пробел + возврат каретки СНЕ$ 32+СНВ$ 13 
+ перевод строки 

16...21 4+1 управление атрибутами — «пустая строка» 
параметр при выводе на экран 

22+2 АТ-управляющий «пустая строка» 

параметра 

23 +2 ТАВ-управляющий соответствующее 
| параметра число пробелов 


Помимо изложенного, функция $НЕТ$ в режиме 7 вводит новый 
управляющий код, который ранее в /Х 5ресйит не использовал- 
ся: в исходной строке символ с кодом 15 она заменяет сочетанием 
символов пробела (СНЕ$ 32) и возврата каретки (СНК$ 13). 

Но самое ценное в работе функции $НЕТ$ в режиме 7 — это 
замена символов с кодами 128...255 на последовательности букв, 
составляющих соответствующие ключевые слова интерпретатора. 
Такая интерпретация выполняется только в режиме клавиатуры 
КЕУУУОВО5$ 1. Например, функция $НРТ$(7,СН®$ 140) вернет строку 
из пяти символов с кодами 76, 79, 67, 65 и 76, которые составят 
слово ГОСАЁ. Несколько иначе трактуется символ с кодом 168, 
соответствующий ключевому слову РЕМ. Если двум символам — 
букве и открывающей скобке или букве и знаку $, стоящим за 
СНВ$ 168, соответствует одна из встроенных функций Ве{а Ваз1с, то 
все эти символы будут заменены на полное буквенное название 
соответствующей функции. В противном случае код 168 будет 
просто заменен сочетанием символов ЕР и М. 

В режиме КЕУ\У/ОЕО5$ 0 никаких изменений в старшей половине 
кодовой таблицы не происходит, за исключением замены по опи- 
санному сценарию символа с кодом 168. 

Свойства функции $НЕТ$ в режиме 7, к примеру, дают возмож- 
ность написать на языке Веёа Ваз1с драйвер принтера, позволяю- 
щего распечатывать тексты программ, или драйвера экрана для 
независимого редактора программ. 


Завершим рассказ о способах обработки символьных значений 
описанием интереснейшего объекта системы Веа Вазбс — сим- 
вольной переменной 7$. Использовать эту переменную можно, как 
и любые другие (А$...\$); при обычных операциях с символьными 
значениями 7$ ничем не отличается от них, но... 

Но кроме этого в символьную переменную 2$ можно заносить 
данные с помощью оператора РЮ®АМТ (или (РАМТ) в виде, предназна- 
ченном для вывода на экран. Данные, направленные в 2$, можно 
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аккумулировать, то есть использовать переменную в качестве сво- 
его рода буфера*. 

«Печать» данных в переменную 2$ производится оператором 
РАМТ #14. Выполним программу: 


10 1МРОТ ЫМЕ А$: (ЕТ 2$="" 
20 РАМТ #14; АТ 5,10 ЛМК 4; А$;РАРЕК 2;12345 


В результате работы программы на экране не появятся ни 
значение, присвоенное переменной А$, ни числа, стоящие в строке 
за РАМТ — все они будут спрятаны в символьную переменную 7$. 
В этом легко убедиться, распечатав ее содержимое с помощью 
оператора РЮМТ 7$. Данные предстанут на экране, причем будут 
выведены именно в том цвете и окажутся именно в тех позициях, 
которые были предусмотрены в операторе РАМТ #14. Все это го- 
ворит о том, что в переменную 2$ передаются не только данные, но 
и все коды управления выводом на экран. 


Как уже упоминалось, переменная 2$ накапливает выволимую в 
нее информацию. При этом, если в конце очередного РАМТ #14 
после выводимых данных не стоит запятая или точка с запятой, 
они булут дополнены символом СНЮ$ 13 (возврат каретки). Вся 
информация может быть мгновенно удалена оператором ЕЕТ 2$="". 
Попытка осуществить вывод в 2$ до того, как она была впервые 
определена, приведет к выдаче сообщения УапаЫе по фоипа. 

Описанные свойства символьной переменной 27$ позволяют на- 
ходить изящные решения многих вопросов программирования. 
Так, с ее помощью можно задерживать предназначенную для выво- 
да информацию, при желании анализировать или видоизменять 
ее, ‘пользуясь всеми доступными средствами для работы с символь- 
ными переменными, а затем по выбору направлять на то или иное 
внешнее устройство. 

В заключение добавим, что такими «волшебными» свойствами 
можно наделить любую символьную переменную. Для этого доста- 
точно выполнить оператор 


РОКЕ 47027,"<имя переменной>" 


— где <имя переменной> — заглавная латинская буква (без знака $). 
Так, инструкция РОКЕ 47027,"А" предлпишет каналу "7." работать с 
переменной А$. Делая аналогичные переключения на разные 
переменные, можно в любую из них осуществлять запись операто- 
ром РЕМТ #14 со всеми вытекающими отсюда последствиями. 

Обращаем внимание на то, что переменные, стоящие в списке 
вывода оператора РАМТ #14, должны быть определены или иметь 
последние изменения до инициализации переменной 7$. Если же 
это условие соблюсти невозможно, перед оператором РАМТ #14 
необходимо делать переинициализацию 2$ (без потери инфор- 
мации в ней) инструкцией "ЕТ 2$=7$. 


Для направления печати в переменную 2$ при старте Ваа Ваз в дополнение к 
уже существующим каналам ("К", "5", "В* и "Р") инициализируется еще один —` 
"2". К нему по умолчанию подключается поток #14 (см. [1]). 
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ЗОВТ, 1МАВРАУ(), ГЕМСТН(), СОРУ, 2Ю1М, РЕСЕТЕ, СНАВ$(), МОМВЕВ()_ 


$ОРТ ПМУЕЮ$Е] <символьный массив|числовой массив|строка симвопов> 


Этот оператор упорядочивает элементы числового или символь- 
ного массива. Числовой массив должен быть одномерным, 
символьный — либо одномерным, либо двухмерным (одномерный 
массив символьных строк). В одномерном символьном массиве 
оператор $ОКВТ расставляет символы (в массиве строк — строки} в 
алфавитном порядке, точнее, в порядке возрастания кодов. Чис- 
ловой массив сортируется по значениям его элементов от большего 
к менынему. Конструкция $ОКТ ИМУЕК$Е сортирует элементы в 
обратном порядке. 

ОКТ позволяет почти мгновенно отыскать максимальное и ми- 
нимальное значения в числовом массиве: 


10 ОМ А(100) 

20 РОВ К=1 ТО 100: "ЕТ А(К)=10*ВМО: МЕХТ К 
30 $ОВТ А(): ЕЕТ Мах=А(1): ЕТ Мт=А(100) 
40 РАМТ "Мт=";Мт, "Мах=";Мах 


Еще интереснее использовать 
этот оператор с символьными 
массивами. Здесь он открывает 
большие перспективы для создания 
справочных систем и баз данных. 

В символьной строке оператор 
5ОКТ сортирует символы; в массиве 
символьных строк  переставляет 
строки, а порядок символов в преде- 
лах каждой строки не изменяет. То 
есть последовательность строк в 
массиве становится подобной раз- 
мещению слов в словаре. 

Сферу влияния оператора $ОКТ можно ограничить заданным 
диапазоном строк с помощью сечения массива, например: 


$ОВТ А$(1 ТО 40) 


Сортировать массив можно не только по первым символам 
строк, но и по произвольному сечению, зАААанЬмУ во втором 
измерении. К примеру, строка 


ЗОЕТ А$(1 ТО 40)(2 ТО) 


отсортирует первые 40 строк массива, игнорируя их первый 
символ. 


|МАВРАУ (< массив строк», <строка-образец>) 

По многим свойствам эта функция напоминает функцию 
М5ТЮЧС. Она возвращает номер элемента массива символьных 
строк, в котором обнаружено первое включение <строки-образца>. 


На элемент массива (строку), начиная с которой необходимо вести 
поиск, указывает первый аргумент функции, например: 


1ЧАККАУ(А$(20),”А”) 
273 


ВЕТА ВАЯС 


Эта функция начнет поиск символа А с 20-го элемента массива 
(то есть с 20-й строки). 


СОРУ <‹массив 1> ТО <массив 2> 
ЗОМ ‹массив 1> ТО <массив 2> 


Оба оператора добавляют к «массиву 2> элементы <массива 1». 
Оператор СОРУ копирует указанные элементы, сохраняя их в ис- 
ходном массиве, а Ю!М переносит, не сохраняя оригинал («сшива- 
ет» два массива). Поддерживается работа с одно- и двухмерными 
числовыми и символьными массивами. 

Допустимо копировать массивы сами в себя. 


Рассмотрим действие этих операторов на примере работы с 
символьными строками и массивами строк. Операции с число- 
выми массивами выполняются аналогично. В местах, где наблюла- 
ются некоторые различия, мы сделаем соответствующие оговорки. 


10 ГЕТ А$="ОМУЕЕТУЧЮР”": ЕТ В$="амуефуцюр" 
20 СОРУ А$ ТО В$ 
30 РАМТ "А$=";А$, "В$=";В$ 


Эта небольшая программка выведет на экран: 
А$=О\М/ЕРТУЦЮР В$ =д\ме{уцор@ \/ЕВТУЦЮР 


После замены в строке 20 оператора СОРУ на 1ЮМ выполнение 
программы прервется на 30-й строке сообщением УапаЫе по} юипа 
— оператор Ю/М ликвидирует переменную А$ после переноса ее 
содержимого в переменную В$. 


Заменим 20-ю строку на 
20 СОРУ А$(4 ТО 6) ТО В$(3) 


Результат станет таким: 


А$=@\М/ЕВТУЦЮР 
В$ =амАТУе{ушор 


Применение оператора ЮМ с 
такими же параметрами приведет к 
следующему: 


А$=О\/ЕЦЮР В$ =чуйТУемуцор 


Таким образом, сечение массива-источника (в нашем случае 
А$(4 ТО 6)) задает фрагмент, подлежащий переносу или _ 
копированию. Номер элемента, указанный в массиве-приемнике, 
(В$(3)) определяет место в нем, куда булет вставлен соответству- 
ющий фрагмент. 


При работе с числовыми массивами также допустимо задавать 
их сечения, используя тот же синтаксис, о и с символьными 
массивами. 


Операции копирования и переноса двухмерных массивов более 
сложны. Для их анализа Вы можете написать специальную прог- 
рамму. Мы же ограничимся приведением диаграмм, иллюстри- 
рующих работу операторов СОРУ и ОМ с массивами разных разме- 
ров и размерностей (рис. 24). На диаграммах представлены 
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массивы А() и В\() (они могут быть как числовыми, так и символь- 
ными), а также результаты выполнения оператора СОРУ А() ТО _В() 
или ЮМ АЦ() ТО В(). 


ВВВ ВВВВВ 
1) ВВВ 2) ВВВВВ 
ВВВ _|ввВ ВВВВВ _|ввввв 
`ТАААА ААА ААА АААоо 
АААА а. ААА а 
В 
В ВВВВВ 
3) В В 4) `ВВВВ ВВВВВ 
В >| в ВВВВВ 
Е А — | Аоооо 
АААА |. А А Аоооо 
АААА А Аоосо 


АиВ — эпементы состветствующих массивов; 
о — нулевое значение в числовом массиве ипи пробел — в СИМВОЛЬНОМ. 


Рис. 24. Работа СОРУ и ОМ с двухмерными массивами. 


Из этих диаграмм становится ясно, что в случае, когда второе 
(либо единственное} измерение массива-приемника меньше вто- 
рого (либо единственного} измерения массива-источника, массив- 
приемник играет роль «прокрустова ложа» — пристраиваемый 
фрагмент или весь массив будет усечен по второй размерности до 
границ своего нового пристанища (случаи 1 и 3). 

Если же в новом жилище исходному массиву или его фрагменту 
слишком просторно (второе измерение массива-приемника боль- 
ше, чем массива-источника), в этих случаях новые строки символь- 
ного массива дополнятся пробелами. В числовых же массивах 
вместо недостающих элементов будут стоять нули (случаи 2 и 4). 

Для всех вариантов применения оператора ОМ, если не было 
указано сечение массива-источника, последний будет удален из 
области переменных. | 

Синтаксис описываемых операторов допускает использование 
сечений только по первому измерению. 

Как и случае одномерных массивов и символьных строк, двух- 
мерные массивы можно копировать или переносить не только в 
конец массива-приемника, но и в любое другое его место. 


ОЕГЕТЕ < массив|символьная переменная> 


Оператор удаляет из области переменных символьный ИЛИ ЧИС- 
ловой массив либо, если задано сечение массива, его фрагмент. 
Он также работает с символьными и числовыми переменными, 
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удаляя их из области переменных. Действие оператора РЕСЕТЕ 
демонстрирует следующая программа: 


10 ОМ А(30,100) 
20 ОЕГЕТЕ А(11 ТО 20) 
30 РЕМТ "А("ЛЕМСТН(1,"А()");^,"ДЕМСТН(,"А()");")" 


Она напечатает: А(20,100), то есть оператор РЕТЕТЕ при указании 
сечения сокращает массив по первому измерению. В случае рабо- 
ты с символьными строками он позволяет вырезать из них задан- 
ные фрагменты. При этом оператор ОЕЁГЕТЕ С$(М ТО М) равносилен 
строке "ЕТ С$=С$( ТО М)+С$(М ТО ). 


Улаляя из программы переменные и массивы, отслужившие свой 
век, ОЕТЕТЕ позволяет экономно расходовать память компьютера. 


ГЕМСТН (< измерение массива>,"<имя массива» ") 


Функция 1ЕМСТН определяет количество элементов одно- или 
двухмерного массива (как символьного, так и числового) по кажло- 
му его измерению. Номер измерения задается первым аргументом 
функции, который может ть значения 1 или 2. Имя 
массива заключается в кавычки* 


16 [М А(10,45) 
20 РАМТ ГЕМСТН(1,"А()”), ЕЕМСТН(2,"А()") 


В результате работы этого примера будут выведены два числа — 
10 и 45. 

Функция ГЕМСТН позволяет работать с массивом, размеры кото- 
рого в данной точке программы неизвестны, без опасения выйти 
за его пределы. Это может понадобиться в процедурах, где универ- - 
сальный алгоритм рассчитан на работу с массивами, в общем 
случае имеющими разную длину. Например, программа сорти- 
ровки элементов одномерного массива (см. стр. 273) может быть 
переписана так: 


10 ОМ С(100) 
20 РОК К=1 ТО 100 - 
30 ГЕТ С(К)=10*+ЮМО 
40 МЕХТ К 
50 РКОС Шт! С©(),Етах,Еплт 
60 РАМТ "Мт=”;Етш, "Мах=”;Етах 
1000 ОЕРЕ РКОС Цилй$ ВЕР Е(), КЕР Мах, РЕЕ Мм 
1010 ГОСАЕ Ёпа,@() 
1020 ЦЕТ Ела=ЕЕМСТН(1,”Р()”) 
1030 [М @(1) 
1040 СОРУ Е() ТО @(): РЕЕЕТЕ @(1) 
1070 $ОКТ ИМУЕЮ$Е О() 
1080 ЕТ Мт=@(1): (ЕТ Мах=О(Ьлпа) 
1090 ЕМО РЮРОС 


Надо отметить, что в ГЕМСТН допустимо подставлять имя массива как в форме 
"С()”, так и в виде имени любого из его элементов: "С(К)” или "С( < число> )". На 
работе функции эти различия в записи имени не отражаются. 
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В начале этой программы при помощи генератора случайных 
чисел формируется массив С() (причем размер массива может 
быть произвольным), и ссылка на него передается в процедуру 
Ип!$ (строка 50). В ней вычисляется размер массива Е() (процеду- 
ра «знает» массив С() только под этим именем; строка 1020) и 
затем его содержимое копируется в массив О() (строка 1040), 
объявленный ранее как локальный (строка 1010). Далее идет 
сортировка (строка 1070} и нахождение предельных значений 
(строка 1080) по старой схеме. По выходу из процедуры не опреде- 
ленные ранее переменные Етах и Етт булут иметь значения, 
которые получили в процедуре их аЦМег едо — переменные Мах и 
Ми. 

В завершение этого раздела мы расскажем о двух функциях, 
также позволяющих значительно экономить память при работе с 
целочисленными массивами: 


СНАЕ$ (<число> ) 
МОИМВЕЙР ( < двухсимвольная переменная > } 


Как известно, под хранение любого числа в памяти 7Х Зреснит 
отводится 5 байтов, в то время как для представления целого числа 
из интервала 0...65535 достаточно только двух. Поэтему цело-- 
численные массивы преимущественно «хранят воздух» — на 35 
они заполнены нулями. Бороться с такой непозволительной рос- 
кошью помогает функция СНАЕ$: она представляет числа из ин- 
тервала 0...65535 двухбайтовыми строками, то есть равносильна 
следующему набору инструкций: 


ГЕТ АМТ (№/256): ЕТ В=Н-—А*256 
ГЕТ 0$=СНВ$ А+СНЕ$ В 


— где М — целое число из указанного диапазона. 

Функция МОМВЕК() производит обратную операцию — пере- 
водит двухсимвольные строки в форму целых чисел. Аналогом 
функции является строка: 


ЬЕТ =256+СОБЕ 0$(1)+СОБЕ 0$(2) 


Ниже мы приводим пример, демонстрирующий экономию па- 
мяти, достигаемую с помощью этих функций: 


10 2М 0$(500,2) 

20 РОВ К=1 ТО 500 

30 1ЕТ 2$(К)=СНАВ$(К): МЕХТ К 
40 РЕИЧТ МЕМ() 

50 ОМ М(500) 

60 ЕОВ К=1 ТО 500 

70 ТЕТ М(К)=МОМВЕВ(О$(К)) 

80 МЕХТ К: ОЕСЕТЕ 0$() 

90 РЕНМТ МЕМ() 


В первом цикле программы с помощью функции СНАЮ$ из 
целых чисел от 1 до 500 формируется символьный массив (строки 
10...30), после чего на экран выводится количество памяти в бай- 
тах, доступной для бейсик-программ (строка 40). Во втором цикле 
(строки 60...80) функция МОМВЕК переводит символьный массив в 
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числовой. После удаления символьного массива снова печатается 
объем свободной памяти. Анализируя результат, можно сделать 
вывод, что для целочисленного массива: размером лишь в 500 
элементов преобразование его в двухбайтовое представление дает 
экономию в полтора килобайта. 


РАБОТА С КЛАВИАТУРОЙ 


ЕСТ, СЕТ 


Помимо описанных выше средств программного преобразо- 
вания символьных строк, Веа Ваз1с позволяет вручную редактиро- 
вать строковые, а также и числовые данные. Делается это с 
помощью оператора ЕВ, уже знакомого по описанию редактора 
Ваа Ваз1с. В новом амплуа он имеет следующий синтаксис: 


ЕСТ [ИМЕ] <символьная переменная> | «чисповая переменная> 


По действию оператор ЕП близок к МРОТ — он присваивает 
переменной, указанной следом за ним, соответственно символьное 
или числовое значение, введенное с клавиатуры. Но в отличие от 
МРОТ, он не отнимает у переменной ее прежнего содержимого, а 
выводит его в строку служебного экрана для редактирования. Вот 
неболышой пример: 


10 (ЕТ А$=“ОМУЕВТУ”, В$="амефу" 
20 МРОТ "А$ ="; ИМЕ А$, 

30 ЕПТ "В$="; ЫМЕ В$ 

40 РЕМТ "А$=”;А$,"В$="; 8$ 


Если при выполнении. этой программки на запросы обоих опе- 
раторов просто нажать клавишу Ещег, то РАМТ (строка 40) «пока- 
жет», что переменная А$ ‹опустошилась», а В$ сохранила ранее 
присвоенное ей значение. Поместив перед именем переменной 
точку с запятой, можно организовать редактирование и числовых 
переменных. Если стоящая в ЕО переменная не была к этому 
моменту определена, то оператор ЕБОП будет работать как обычный 
ИЧРОТ. В списке из нескольких переменных для всех из них, кроме 
первой, ЕОИ тоже работает как МРОТ. 

Недопустимо подсовывать оператору ЕОП «пустую строку» — это 
может привести к сбросу или зависанию компьютера. Поэтому перед 
применением ЕСИ в программе {если нет уверенности} рекомендует- 
ся делать проверку переменной на «пустоту»: 


Е А$=”” ТНЕМ МРОТ А$: ЕЁЗЕ ЕОП А$ 


СЕТ <символьная переменная|числовая переменная> 


Оператор СЕТ производит опрос клавиатуры и присваивает 
переменной символьное или числовое (в зависимости от того, 
какая переменная используется в качестве параметра) значение, 
соответствующее нажатой клавише, одной или в комбинации с 
функциональными клавишами С$ и $$. На нажатие самих функ- 
циональных клавии! СЕТ не реагирует. В отличие от функции 
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стандартного Бейсика МКЕ\У$, оператор СЕТ задерживает выпол- 
нение программы и ждет, пока не будет нажата клавиша. Он в 
некоторой степени аналогичен комбинации 


РАЦЗЕ 0: ЕТ А$=!МКЕУ$ 


Кроме того, оператор СЕТ позволяет менять режимы курсора во 
время ожидания нажатия клавиши: он не реагирует на нажатие 
комбинаций клавиш, залающих тот или иной тип курсора. Исполь- 
зуя это свойство, можно считывать символы, возвращаемые кла- 
виатурой не только в режимах курсора [1] или [С], как при работе 
с функцией ИМКЕУ$, но и в режимах [Е] и [С]. 


Оператор СЕТ с числовой переменной в качестве параметра при 
нажатии цифровых клавиш в режимах курсора [1] и [©] 
присваивает ей, соответственно, значения от 0 до 9. При нажатии 
клавиши А переменной присваивается значение 10, В — 11 ит. д. 
по алфавиту. 


Рассмотрим небольшой пример: 


10 РЕМТ ОУЕЕ 1;"_";СНЕ$ 8;: СЕТ А$ 
30 РЮМТ О\МЕК 1;"_";СНК$ 8;: 40 РАМТ АЗ; 
50 СО ТО 10 


Для такой крохотной программки результат неожиданный и 


впечатляющий: теперь можно свободно перемещать курсор по 
экрану и вводить символы и ключевые слова в любом его месте. 


Чтобы избежать сообщения пуа!Ч союоуг при попытке удалить 
символ клавишами С©С$/0, находясь в режиме курсора [Е]*, целесо- 
образно заменить 40-ю строку программы на 


40 Е СОГЕ А$<16 ОК СОГЕ А$>31 ТНЕМ РАМТ А$ 
Согласитесь, получивигиеся пять строк — неплохая заготовка 
для создания полноэкранного редактора программ Ве Вазс. Но 
вот проблема: как включить введенную строку в текст программы? 


Веа Ваз1с имеет решение и на этот случай: в нем предусмотрен 
оператор КЕ\УМ, который мы рассмотрим чуть позже. 


РАБОТА СО СПРАЙТАМИ 
_ СЕТ, РЕОТ, СНВ$ 0, СНЕ$ 1 


Способности оператора СЕТ не ограничены тем, что мы описали 
в предыдущем разделе. Этот оператор предоставляет также воз- 
можность работать со спрайтами, позволяя получать неплохие 
результаты в области мультипликации. 


* 
Режим [Е] в данном случае не отключается автоматически после ввода одного 


символа, как это происходит в редакторе; возврат к курсорам [1] или [С] необ- 
ходимо делать принудительно повторным нажатием С$ /55. 
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Формат оператора таков: 


СЕТ <строковая переменная», «горизонтальная координата», 
‹вертикальная координата» [, «ширина», <длина>] [;<тип>] 


Действие оператора элементарно: он помещает в «<строковую 
переменную> («фотографирует») прямоугольную область экрана. 
<Ширина> и «длина> этой области измеряется в знакоместах, <ко- 
ординаты> верхнего левого угла — в пикселях. Сделать «отпечаток» 
с этой области можно, выводя <«строковую переменную» операторами 
РАМТ или РЁЕОТ в любое место экрана. При этом с помощью СЯЕЕ 
возможно изменение масштаба изображения (С$27Е в нашем 
«фотопроцессе» играет роль увеличителя)}. Аналогия с фото- 
графией на этом не исчерпывается: значения параметра <тип> 
определяют, будет ли наша «фотография» черно-белой или цвет- 
ной. Нулевое значение параметра указывает на то, что запомнить 
следует только изображение, а единица — изображение с атрибу- 
тами. По умолчанию параметры принимают слелующие значения: 
<«ширина>=«длина>=1, <тип>=0. Отметим, что установка С$РЕ 0 не 
позволит Вам воспроизводить картинку с помощью РЕМТ. Перей- 
дем к примеру. 


5 СУШЕ 8 

10 РАМТ "ВОММ!"""""ВАММ!": КЕМ Вывели две надписи 

20 СЮСЬЕ 16, 159, 5: КЕМ В промежутке нарисовали окружность 

30 СЕТ А$, 0, 175, 5, 4; 0: РЕМ «Сняли» надписи вместе с окруж- 
ностью 

40 РЕМТ АТ 0,0; О\УЕВ 1; А$: РЕМ Стираем нашу картинку 

50 РОК |=1 ТО 150: ЮЕМ Вновь и вновь, двигаясь по диагонали... 

60 РЕОТТ, 175-1, А$: ВЕМ ...воспроизводим картинку... 

70 ОУЕК 1: РЬОТ 1, 175-—1, А$:ОУЕК 0:ВЕМ ...и тут же снова ее 
стираем 

80 МЕХТ| 


Ну, чем не мультипликация! 

Мы убедились, что оператору СЕТ «по зубам» и символы, и 
графика. Остается выяснить, что же представляет собой получен- 
ная нами переменная А$. Это может понадобиться для конст- 
руирования спрайтов «в уме», без помонки оператора СЕТ, что, как 
мы покажем, может дать определенные удобства. 

Первым элементом такой переменной всегда является управля- 
ющий символ СН®$ 0 или СНЕ$ 1 и это сразу выделяет спрайты из 
числа обычных символьных переменных. Код 0 говорит о том, что 
за ним следуют 8 байт, которые должны интерпретироваться как 
закодированное изображение символа 8х8 пикселей (аналогично 
тому, как кодируются символы ОРС). Код 1 предупреждает интер- 
претатор о том, что эти 8 байт предваряются еще одним, содер- 
жащим атрибуты знакоместа. Таким образом, эти коды совнадают 
со значением параметра <тип> оператора СЕТ. Каждое послелую- 
щее знакоместо (если их больше одного) представлено таким же 
блоком из управляющего кода 0 или 1 и следующих за ним 8 или 
9 байт. При необходимости между блоками располагаются коды 
управления курсором (символы СН®$ 8...11, стр. 245}, которые. 
задают взаимное расположение  знакомест. Попробуйте . про- 
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анализировать содержимое переменной А$, полученной в приве- 
денном примере, и «анатомия» спрайтов будет для Вас понятнее. > 

Однократное применение СЕТ не позволит Вам получить спрайт 
с формой, отличающейся от прямоугольной. Однако «склеив» (с 
помощью плюса’или }ОМ)} несколько строковых переменных, «раз- 
бавляя» их кодами управления курсором, можно получить «супер- 
спрайт» самой экзотической формы — даже состоящий из несвя- 
занных фрагментов. Фантастические возможности появляются 
при объединении в одну переменную обычных текстовых строк и 
строк-спрайтов, а также спрайтов типов 0 и 1! Предоставим Вам 
возможность поэкспериментировать самостоятельно. 


ГЕНЕРАЦИЯ ДАННЫХ И ТЕКСТА ПРОГРАММ 


КЕУМ 


КЕУИМ < строка’ симвопов> 


Оператор КЕУШМ помещает <символьную строку> в текст програм- 
мы. Если строка имеет номер и не противоречит соглашениям 
синтаксиса Веа Вазс, она займет соответствующее место в прог- 
рамме. В противном случае компьютер выдаст сообщение Мопзепзе 
т Вас. Выполним строку программы: 


10 КЕУММ "20 РЕЙМТ ""Нейо""" 


Она выведет на экран: 
НеНо 
— атекст примера станет выглядеть так: 
10 КЕУМ "20 РЕМТ ""Нейо""" 
20 РАМТ "Нею”" 
Таким образом, описываемый оператор позволяет программе 
модифицировать саму себя по ходу выполнения! 


При работе оператора КЕУМ могут встретиться некоторые не- 
ожиданности. Отметим лишь, что КЕ\УМ гораздо надежнее работает, 
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когда генерируемые им строки располагаются в тексте программы 
после него. 


Сфера применения оператора КЕ\УМ весьма широка. В первую 
очередь необходимо сказать о возможности с его помощью ге- 
нерировать данные для ВАТА-списков. Такая потребность может 
возникнуть, если необходимо передать данные из одной програм- 
мы, работающей в среде Веа Ваз1с. в другую, которая для уско- 
рения расчетов должна быть скомпилирована. Как известно, ком- 
пиляторы Зреснит-Бейсика не позволяют работать «в лоб» с 
внешней памятью (магнитофоном или дисководом). При помощи 
же оператора КЕУМ данные, сформированные первой программой 
и сохраненные в виде массива на ленте, можно преобразовать в 
списки операторов БРАТА. Полученные РАТА-списки объединяются 
се второй программой и совместно с ней компилируются. 


ПРЕОБРАЗОВАНИЕ ЧИСЕЛ 
Вич$(), НЕХ$(), ОЕС() | 


зресиит-Бейсик располагает только одной функцией преобра- 
зования чисел из одной системы счисления в другую — ВМ, пере- 
водящей двоичные числа в десятичные. Веа Ваз$1с добавляет еще 
три: В№\$, НЕХ$ и ОЕС. 


Функция 
ВМ $ (<число>)} 


выполняет действие, обратное функции ВМ — переводит числа в 
интервале О0...65535 из десятичного в двоичное представление. 
Результат возвращается в виде символьной строки длиной 8 
символов для чисел в интервале 0...255 и 16 символов — для 
остальных чисел из допустимого диапазона. Наглядно работу 
функции представляет следующий пример: 


ОО: РЕМТ АТ 0,0; ВИМ$ (М 65022): ЕООР 


Порт 65022 обслуживает клавиатуру, точнее, клавиши А, $, О, Е 
и С (подробнее см. в [1]). Если эти клавиши не нажимать, то на 
экране будет представлено число ххх!1111 (5, 6 и 7-й биты 
предназначены для других целей и могут принимать произвольное 
значение). Нажатие перечисленных клавиш приведет к появлению 
нулей в соответствующих позициях числа. Так, удерживаемые 
одновременно клавиши А и С дадут такой результат: ххх01110. 

С помощью функции В/№$ удобно просматривать область симво- 
лов, определяемых пользователем, область атрибутов, системные 
переменные и т. п. Аля получения в результирующей строке сим- 
волов, отличных от 0 или 1 (например, пробела и черного квадрата 
из набора псевдографических символов 7Х 5реснит), необходимо 
выполнить 


РОКЕ 62869,"<симвоп, заменяющий ноль>": 
РОКЕ 62865,"<симвоп, заменяющий единицу>" 
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Функция 
НЕХ$ (<чиспо>) 


переводит десятичное целое число (например, адрес ячейки па- 
мяти} в шестнадцатеричный вид. Результат возвращается в виде 
двухсимвольной строки для чисел от —255 до 255 и четырех- 
символьной — лля всех болыших из диапазона —65535...65535. 


Операцию обратного преобразования выполняет функция 
ОЕС (< строка симвопов>) 


Она переводит числа из шестнадцатеричного представления в 
десятичное. Аргумент функции должен быть двух- или четырех- 
символьной строкой, представляющей собой шестнадцатеричное 
число (шестнадцатеричные цифры А...Е могут быть как строчные, _ 
так и прописные). Например, в результате выполнения оператора 
РАМТ 2ЕС("9С40") на экран будет выведено число 40000. 


МАТЕМАТИЧЕСКИЕ ФУНКЦИИ 


СОЗЕ(), УМЕ), ЕМОМ(), АМО(), ОВ(}, ХОВ(), МОБ() 


Язык программирования Ваа Ваз1с вводит несколько новых ма- 
тематических функций и среди них две тригонометрические (ана- 
логи уже существующих в эреснит-Бейсике}: 


СО$Е( < чиспо› } 
$НЫЕ (< число> ) 


Появление этих дубликатов оправдано тем, что они работают в 
пять раз быстрее своих предшественников, правда, с несколько 
меньшей точностью (вследствие четырехбайтового представления 
обрабатываемых ими чисел), что, впрочем, в большинстве случаев 
допустимо. 


Функция 
ВМОМ (<число> ) 


возвращает случайное число в интервале от 1 до числа, заданного 
аргументом. Помимо того, что ЮМОМ работает с вдвое большей 
скоростью относительно стандартной КМО; она генерирует последо- 
вательность псевдослучайных чисел с менее заметной закономер- 
ностью. Действительно, строка 


РО: РЕОТ КМО*255,ЮМ0*ж175: ГООР 


— покрывая экран точками со случайными координатами, уже на 
пятой минуте своей работы обнаружит явную тенденцию разме- 
щать их с определенной закономерностью, а через полчаса просто 
покроет экран регулярной сеткой из ломаных линий. После заме- 
ны этой строки на 


РО: РЕОТ ВМОМ (255), ВМОМ (175): ООР 
экран будет покрываться точками равномерно но всей по- 
верхности. 


283 


ВЕТА ВАЗС 


Три новые функции: АМО, ОК и ХОВ выполняют операции бина- 
рной математики. Функция 


АМО (< число> , <число> ) 


осуществляет поразрядное логическое умножение (операцию "И") 
двух чисел, находящихся в интервале 0...65535. Одно из приме- 
нений функции АМО — это определение одновременного нажатия 
клавиш при опросе клавиатуры, как это делается в слелдующем 
примере: 


90 1Е АМО(ВИМ 00010001 ‚М 65022)=0 ТНЕМ ВЕЕР 0.1,12 
100 СО ТО 90 


Значение, считанное из порта 65022 (клавиши А, $, О, Еи @), 
маскируется двоичным числом 00010001. Если на клавиатуре 
нажать одновременно клавиши А и С, из порта будет считано 
число 11101110, и только в этом случае функция АМО вернет ноль 
и программа подаст звуковой сигнал. 


Функция 
ОВ (< число>›, <чиспо> } 


делает поразрядное логическое сложение (операцию "ИЛИ")} двух 
чисел (0...65535). 

С помощью функции ОВ можно, например, определить, не на- 
жата ли хотя бы одна из интересующих нас клавиш!. Для клавиш А 
или С решение поставленной задачи выглядит так: 


90 Е ОВ(ВМ 1110111014 65022)<>255 ТНЕМ ВЕЕР .1,12 
Функция 
ХОР (< число>›, <число> ) 
выполняет операцию "исключающее ИЛИ" двух чисел (0...65535). 
Еще одна математическая функция: 
МОР (<число 1>,<чиспо 2>) 


возвращает остаток от целочисленного деления «<чиспа!> на 
«чиспо 2>. Оба аргумента должны быть положительными. 
Например, МОб(29,9) возвращает число 2, поскольку 29—9х3=2. 


ПРОЧИЕ ОПЕРАТОРЫ И ФУНКЦИИ 


Веа Ва$с расширяет возможности оператора $АУЕ, сохраняя 
его исконное назначение — записывать программы и данные на 
магнитную ленту. Прежде он записывал программу только це- 
ликом. Веа Ваз1с же допускает новый синтаксис этого оператора: 

5АУЕ ‹номер строки> ТО «номер строки > [; <погический адрес 

устройства > |;|, «“имя файла"> [ЫМЕ <номер строки автостарта > | 

Этот синтаксис обеспечивает сохранение фрагмента программы. 
Так, оператор $АУЕ 10 ТО 120;"ТЕ$Т" запишет на магнитофон часть 
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программы с 10-й строки по 120-ю включительно под именем ТЕЗТ. 
При этом область переменных на ленте не сохраняется. Команда 
ЗАУЕ РАТА <“"имя файла"> сохранит на внешнем носителе только 
область переменных программы. 


В связи с новыми возможностями $АУЕ закономерно появление 
оператора 


УЕЮМЕУ ‹номер строки> ТО <номер строки> 
[; <погический адрес устройства > |; |, <"имя файла” > 


Очевидно, что он проверяет правильность записи на ленте фраг- 
мента программы, ограниченного указанными номерами строк. 


Использование параметра «погический адрес устройства> (0, 1, 2...) 
имеет смысл только при подключенном интерфейсе типа 
П(е[асе 1, поддерживающем микродрайвы, локальную сеть ит. д.. 
(см. [1]). Имя устройства, с которым будут работать операторы 
ГОАО, $АУЕ, УЕКМРУ и МЕКСЕ можно задавать и по умолчанию, 
используя уже знакомый нам оператор ОЕРАЦЕТ. В этом случае он 
имеет следующий формат: 


ОЕРАЦЁТ=< имя устройства» 


Здесь под «именем устройствах понимаются логические имена 
внешних устройств: { (магнитофон); п<номер микродрайва> 
(микродрайв); а узла> (узел локальной сети); Ь (интерфейс 
В5-232С, канал "В"); 4 (диск). 


Наполняется новым содержанием и оператор СЁЕЕАКЮ. Выпол- 
нение его с параметром в интервале -—767...767 (3х256-—1) смещает 
ВАМТОР вверх или вниз на заданное число байт. Заметим, что 
при выполнении этого оператора не делается проверка на пересе- 
чение КАМРТОР с текстом программы. 

Интерпретатор Веа Ваз1с работает во 2-м режиме прерываний 
(12) процессора 7.80. Благодаря этому возможен принудительный 
выход в интерпретатор из программ в машинных кодах (не изме- 
няющих режим прерываний). Для этого необходимо удерживать 
клавингу ВгеаК (С$/$расе) более одной секунды. Именно таким 
образом прерывается работа операторов ВЕЁ и АЧОТО. Иногда такой 
прием позволяет вырваться из зависшего состояния компьютера. К 
сожалению, 2-й режим прерываний не позволяет «в лоб» работать 
с операционной системой ТК-РО5. Тем не менее, существует не- 
сколько приемов, позволяющих обойти эти трудности. Они описа- 
ны в Приложении 5. 


На этом закончим рассказ об операторах и функциях интерпре- 
татора Веа Ваз1с. Хотим только отметить, что мы ни в коей мере не 
претендуем на полноту описания этого языка программирования. 
Не исключено, что некоторые его возможности так и остались 
неразведланными — излагался лишь наш собственный опыт 
постижения Веа Ваз1с. 
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ПРИЛОЖЕНИЯ 


1. Алфавитный перечень операторов Ве{а Вахс 


Таблица 20. 


=” х 
.“. 


Поиск и замена по образцу 
имен переменных, чис- 
повых констант, строк сим- 
волов в тексте программы 


ческой генерации номеров 
строк программы 


Перемещает КАМТОР на 


указанное количество байтов 


Устанавливает текущее вре- 


мя; задает время подачи 


звукового сигнала и/или пе- 
рехода к подпрограмме; за- 


дает подпрограмму обра- 
ботки прерывания, устанав- 
ливает режимы работы 


Стирает содержимое окна 


| С Заданным номером 


Копирует содержимое 
одного массива ипи его 
части в другой массив 


[С] $$/8 текущем окне, переключа- 
ет драйверы вывода на 


экран 


Присваивает значение 
переменной, если она 
ранее не была определена 


Задает по умопчанию 
устройство ввода-вывода 


Приписывает указанной 
клавише заданную после- 
довательность операторов 


ОЕЕ КЕУ 
[6] $$/1 
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ОЕРАЧЕТ А=1, В=2, С=3 
ОЕРАЦЕТ= 


о 030 


АЁСТЕК Мт ТО Мит 
АЁТЕК 1.1 ТО 1.2 


АЕТЕВ "Ве" ТО "Реазе" 


АЕТЕВ 1МК 3 ТО РАРЕР 7 | 249 
АЦТО 100,10. 239 
АЦТО 0 

СЕЕАВ 15 


СЬОСК "15:30:00" 
СЬОСК "А15:35" 
СЁЬОСК 1200 
СЬОСК 7 


СЕ 3 


СОРУ А(2 ТО 5) ТО В(7) 
СОРУ А$ТО 6) ТО В$(9) 


№ :. 


251 


274 


СЫРЕ 5,9 
СУГЕ 0 


245 


244 


ОЕР КЕУ "В";”НЕЦО:" 
ОЕЕ КЕУ "8": СУТЕ 4,8 


ЕТЕТЕ 
[6] 7 


Удаляет фрагмент 
программы 


Удаляет массив ипи часть 
массива; удаляет часть 
символьной переменной — 
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61 
ОЕЦЕТЕ 1200 ТО 2500 243 


ОЕКЕТЕ 0 ТО 0 


РЕГЕТЕ А ТО 23) 
ОЕГЕТЕ $(13) 


Заголовок цикла типа. ОО: 265 
О0...ЕООР РЕОТ КМО*255,ЮМО*175: 
ГООР - а 
ОРОКЕ Записывает по указанному | ОРОКЕ 42484, 5088 
[С] Р адресу двухбайтовое число 


ОРА\/ ТО | Проводит линию или дугу 


[К] У\/ + $$/Е| ИЗ текущей точки в точку с 


ЕСТ 
| Еп{ег+ 0 


указанными абсолютными 
координатами 


Вызывает на редактиро- 
вание строку программы 


ЕСТ 
[6] $$/5 


Вызывает на редактирова- 
ние переменную 


Начинает блок операторов 
в конструкции типа 

Е. НЕМ. .ЕБЕ, 
выполняющийся в случае, 
если условие ложно 


Г ЕМО РОС | Оператор конца 
[С] 3 процедуры. Осуществляет 
возврат управления 
основной программе. 
Анапогичен ВЕТОЮМ 


Осуществляет выход по 
усповию из цикла типа 
ОО...ЕООР 


Запивает участок экрана, 
ограниченный замкнутым 
контуром, цветом РАРЕК 
или ИМК 


Присваивает символьной пе- 
ременной симвоп нажатой 
клавиши или числовой пере- 
менной — порядковый но- 
мер клавиши. 


ОКА\\ ТО 70,100 
ОКА\\/ ТО 120,120,3/2*Р! 


ЕСТ 30 =: 
ЕСТ А$ 278 
ЕР :© 


+ А=1 ТНЕМ: 
РАМТ "Ву": КЕТУЮМ: 
ЕЁЗЕ: 
РАМТ "У\У\Уе'1 госК уои": 
СО ТО 1282 


РЕР РКОС УМрег: 
Сы т: 
Е =1 ТНЕМ РЕТОКЮМ: 
СЕ: 

ЕМО РКОС 


ЕХПЕ |=28 


РКС МК 3; 70,70 


СЕТ А$ 
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Считывает с экрана в сим- | СЕТ А$,42,38,2,3 
вольную переменную 

спрайт с указанными 

размерами 


СО ТО ОМ | Осуществляет переход на СО ТО ОМ 1; 50,70,90 
[К] С +[С] © | строку из указанного 

списка в соответствии со 

значением заданной 

переменной (выражением) 


СО $48 ОМ | Осуществляет вызов под- СО $59В ОМ }; 70,80,90. 
[К] н +[6] 0 | программы, начинающейся 

со строки из указанного 

списка, в соответствии со 

значением заданной пере- 

менной (выражением) 


ом Сцепляет строку програм- | ОМ 50 
[С] $$/6 мы с указанным номером 
или текущую строку со 
следующей за ней строкой, 
записывая их через 
двоеточие под одним 
номером 
Переносит содержимое ОМ А(3 ТО 7) ТО В(10) | 274 
одного массива или его Юм С() ТО 0) 
части в другой массив | ЮИМ Е$() ТО Е$65) 


КЕУМ Помещает заданную строку | КЕУМ "1200 ТЕТ А=8763" | 281 
[С] $$/4 символов в текст 
программы 
236 


КЕУ\/ОВО$ | Переключает режим КЕУУУОКО5 1 
[<] 8 ключевых слов Ве{а Вас в | КЕУМ/ОЮО$ 4 
режим СгарМс$ и обратно, 
устанавливает способ ввода 
ключевых слов в строку 
редактирования 


и$Т Выводит на экран (или в |1 Ы$Т 10 ТО 50 | 
[к] К символьную переменную НТ ТО 70 
72$ по 15Т #14) листинг (5$Т #14; 50 ТО 
программы в пределах НТ 
указанных строк 
а — текст Н$Т РКОС Ро Юеая 261 
указанной а — 


Распечатывает номера Ы$Т КЕР "Ога” 
строк,‚содержащих $Т ВЕР Миут 
указанный ключ 
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И$Т Распечатывает содержимое | Ш5Т РАТА 

[к] к переменных и размерности | 15Т УАЁ 
массивов программы Ы$Т УАЕ$ 
Распечатывает ($Г ОЕЕ КЕУ. 
макроопределения клавиш 

ГОСАЁ Объявляет переменные ГОСАЕ А, В,С 262 

[С] $$/3 процедуры покальными 

ГООР Оператор окончания цикла | см. оператор ВО 265 

[с] типа ОО...ГООР 


®] Исполняет один из опера- ОМ 1: 255 
торов, стоящих поспе него РАМТ "Шпе 1": 
в строке, в соответствии со | РЮМТ "Шге 2": 
значением указанной РЕМТ "Шпе 3" 
переменной (выражения) 


ОМ ЕВЕОВ | Задает номер строки, с ОМ ЕВКОК 3500 255 
[С] м которой начинается под- ОМ ЕККОК: ВЕЕР 1,1: 
программа обработки РЕТОЮМ 

ошибок, или описывает эту 


подпрограмму 


РОТ Выводит строку символов РЕОТ 100,70; "Бето” 
[ко (спрайт) в заданную точку 
экрана | 


РОКЕ Записывает в память РОКЕ 40000, "Знта” 
к] о компьютера строку кодов 
символов, начиная с 

заданного адреса 


м. 
Снимает со стека СО $3В и [ РОР А 267 
присваивает переменной 
(еспи она указана} значе- 
ние адреса возврата из 
процедуры или адрес 
заголовка цикла типа 
2оО...ЕООР 


Вызывает процедуру с РКОС $ы61 3, ‚ А+2, 
заданным именем и 0(5) 

передает ей значения 

фактических параметров 


РОР 
[6] 9 


261 


Считывает значения ОЕР РКОС Тез} БАТА: 
фактических параметров, ОО УМПЕ ПЕМ()=0: 

передаваемых в процедуру ! ЕЕАО ЦМЕ а$ 
списком произвольной 
длины 


РЕАО 
[Е] А 
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ВЕТА ВАЗС 


Осуществляет поиск по КЕР Мит 

[С] $$/7 образцу в тексте програм- | КЕЁ "5иЬ1" 
мы и вызывает на редакти- | КЕР 3 
рование строки, удовпет- РЕЕ (А$) 
воряющие условию поиска 


задает передачу ОЕР РКОС Тез${ КЕР а 
параметров в процедуру 
по ссылке 


Перенумеровывает строки | КЕМОМ 70 ЫМЕ 90 $ТЕР 5| 242 
программы из указанного 

диапазона, начиная с 

заданного номера, ис 

заданным шагом 


Осуществляет циклический | ВО 5;0,175;50,88 
скроплинг окна экрана на 

заданное количество 

пикселей в указанном 

направлении 


Производит запись на ленту | ЗАУЕ 10 ТО 70; 285. 
фрагмента программы или | "Ейепате” _ 
ласти переменных ЗАУЕ ОАТА "Ейепагле” 


Осуществляет скроллинг $СКОЦ 5;0,175;50,88 
окна экрана на заданное 

количество пикселей в 

указанном направлении 


Сортирует чисповой или 5ОКТ и 

символьный массив по $ОЮТ А$( ТО р ТО ) 
убыванию или возрастанию | $ОВТ ИМУЕК$Е А( 
значений его элементов 


Задает номер строки под- | ТКАСЕ 7000 
программы обработки пре- | ТРАСЕ: Ш5$Т УА|: 
рывания, обращение к кото-| КЕТУЮМ 

рой будет осуществляться 

поспе каждого выполнен- 

ного оператора программы 

ипи описывает эту 


подпрограмму 


Задает критерий окончания | РО ОМТЕ АВ$ Х<Ерз 266 
цикла типа ОО...ГООР р 
В операторе РЕИМТ (ЕРАМТ) | РАМТ ЧУМС "#.#+"; А| 248 
задает шаблон вывода чисел 


Осуществляет проверку УЕЮРУ 10 ТО 70; "Мате" 
записанного на ленту фраг- 

мента программы из 

указанного диапазона строк 
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Задает координаты и 


указанным номером 


Задает критерий продопже- 
ния цикла типа ОО...ГООР 


размеры текстового окна с 


Объявляет текущим окно с | УИМОО\МУ 5 
заданным номером 


СООР УУН\Е =. 


о 5; 
0,175,9,50 


2. Алфавитный перечень функций Вефа Вас“ 


Таблица 21. 


| Результат поразрядного 
"И” двух чисел 


Двоичный эквивалент 
десятичного числа 


Представление целого 
числа из диапазона 
0...65535 двумя байтами 


Косинус числа. Работает 
быстрее стандартной 
функции СО$ 


Десятичное целое чиспо, 
представленное в памяти 
по указанному адресу 
двумя байтами 


Работает только с 
нуей асе 1 


Количество 
инвертированных пикселей 
последней операцией ЕР - 


РАГЕС 


ЕВЕ 


СОЗЕ(Р!) 


ОРЕЕК 40 000 


| РАМТ ЕШЬЕС() 


Шестнадцатеричный экви- | НЕХ$(40000) 
валент десятичного числа 


2 


Набор функций Веа Ва$1с осуществляется с помощью ключевого слова РМ и бук- 


вы, указанной в таблице ниже названия функции. 
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мн: 
тит. 


МАВВАУ | Номер строки двумерного | МАКРА\У(А$(7)(3 ТО 9),В$) | 273 
о символьного массива, в 

которой обнаружено 

очередное вхождение 


строки-образца 
= ИЧ$ТЕМС (З4а, А$,”ТЕ$Т”) | 269 
ТЕМ ПЕМ() 263 
Т 
предстоит считывать 
оператору КЕАО 


Количество свободной па- | МЕМ() 
мяти для бейсик-программ 
МЕМОКУ | Содержимое участка памя-| МЕМОК\У$()(0 ТО 23295) 
м$ ти, представленное 
символьной строкой : 
мо Остаток от деления двух МОБ(А,В) 
у чисел 
ТЕМСТН | Размер массива по ГЕМСТНИ ‚“А(1)”) 276 | 
= - заданному измерению 
Целое число из диапазона | МИМВЕЮ(СНЕ$ 55+СН®Е$ 28)! 277 | 
0...65535 — эквивалент 
двухбайтовой строки 
{®] 3 Результат поразрядного ОК (А,В) 284 | 
о “ИЛИ” двух чисел 
Случайное число в ю®МОМ(175) 283 
диапазоне от 0 до числа, 
указанного в аргументе 


Символ (в том числе из на- | $СВМ$(10,5) 


бора Ч0С), стоящий в 
$НИЕТ$(3, "ОУМЕЕТУаме у”) | 270 


Позиция в базовой строке, 
начиная с которой 
обнаружено очередное 
вхождение строки-образца 


Тип очередного данного в 
списке ОАТА, который 


м 


6 


к) 
© 
ь 


УЕ: 
> 
© 


указанных строке и 
столбце экрана 


Строка символов, преобра- 
зованная по правилам в со- 
ответствии со значением 
первого аргумента 


Синус числа. Работает ‘ УИЧЕ(Р!) 283 
быстрее стандартной 
функции УМ 
$ТЕМС$ | Приведенная строка $$ (М, #") 
5$ символов, повторенная 
заданное копичество раз - 
т к Г 
т$ 
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[ыч 
© 
ШЕШ 


ПРИЛОЖЕНИЯ 


$45 Симвопьное представ- ОЯМО$("##.###",О) 248. 
$ ление числа в соответствии 


с заданным форматом 


Хок Результат поразрядного ХОЮ(Е, М) 284 
х "“исключающего ИЛИ" 
двух чисел 


3. Перечень сообщений об ошибках Вефа Вас 


К стандартному перечню сообщений об ошибках (см. стр. 98) 
Веа Ваз1с добавляет ряд собственных с кодами $5...Х. Меняются 
также ситуации, в которых появляются стандартные сообщения с 
кодами С и ]: 


С № гоот фог Ипе нет места для строки 


При перенумерации строк оператором КЕМУМ сгенерированы 
номера уже существующих строк, не входящих в указанный 
интервал. 


} туаНА 1/О деуке неверное устройство ввода-вывода 


Обращение к окну с несуществующим номером при помощи 
операторов У/ММОО\УИ или С15. 


$ М55тад ГООР отсутствует ГООР 


Не может быть найдено окончание цикла при использовании 
ЕХИ Е или при встрече ОО, условие которого не предполагает ни 
одного прохода цикла. 


Т ГООР \МПои! ОО ГООР без ОО 


Применен оператор ГООР без СО либо осуществлен вход в тело 
цикла, минуя его заголовок. 


У Мо зисК Ипе | нет такой строки 
В команде ОЕСЕТЕ указан номер несуществующей строки. 
У Мо РОР Чафа нет данных для РОР 


Сделана попытка снять оператором РОР данные со стека СО $58, 
когда тот был пуст. 


\“ М155т9 ОЕ РКРОС отсутствует ОЕР РКОС 


Не найдено описание процедуры с указанным именем. Приме- 
нен оператор ГОСАЁ или ЕМО РКОС без ОЕЁР РКОС, либо осуществ- 
лен вход в тело процедуры, минуя его заголовок. 


Х № ЕМО РКОС нет ЕМО РКОС 


При попытке «перешагнуть» встреченное в тексте программы 
описание процедуры не может быть найдено ее окончание. 
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Значение, соответствующее коду ошибки, содержится в пере- 
менной ЕККОК, к которой имеется доступ из интерпретатора. Аля 
сообщений с кодами 1...8 значение этой переменной равно самому 
коду, для сообщений с кодами от А до Р — соответственно, 10...27. 
Для ошибок интерпретатора Веа Вазс (коды $5...Х) значение 
ЕВКОВК равно 28...33. Аля сообщений с кодами 0 и 9 переменная 
ЕККОВК не определена. 


4. Распределение памяти при работе с Вефа Вас 


Р_КАМТ (23732) 
Символы, определяемые пользователем 
ЧОС (23675) 
Интерпретатор Ве{а Вас 
46960 

Область системных переменных для 

У/ИМООУ\\, описание макрокоманд 
РАМТОР (23730) 


Е_НМЕ (23641) 
Переменные Бейсика 
УАЕ$ (23627) 
Бейсик-программа 
РКОС (23635) 


5. Использование Ве{а Вазс с системой ТВ-00$ 


Для того чтобы организовать корректную работу Веа Вазс с 
ТВ-2О$5, необходимо перед обращением к диску включать режим 
прерываний 1М№М1, а затем возвращаться в 1М2. Это можно делать, 
используя готовые процедуры в кодах, которые размещены в теле 
интерпретатора Ве Ваз1с. Загрузка программы с диска, 
например, будет выглядеть так: 


100 КАМООММЕ Ч5К 63243: КЕМ Включаем 1М! 
110 РКАМООМЕЕ Ц5Ю 15619: РЕМ: ГОАБ "#епате” 
120 РАМООМИШЕ Ц0$Ю 61369: КЕМ Включаем [М2 


Впрочем, не обязательно каждый раз после обращения к диску 
возвращаться в режим 1М2. Если в программе не используется“ 
оператор СЕОСК и нет необходимости использовать клавишу ВгеаК 
Аля возврата в Веа Ваз1с из процедур в кодах, то интерпретатор не 
замечает «подлога» и вполне корректно работает в 1М1. Ноэтому, 
как правило, достаточно в программе перед первым обращением к 
диску сменить режим прерываний на 1М1, а в завершение ее 
работы восстановить режим 1М2. 
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Язык программирования Бейсик, «зашитый» в память 
Г.Х эресНип: 128, очень похож на стандартный 5ресйит-Бейсик. В 
основном, отличие заключается в расширении функций редакто- 
ра, а также в поддержке дополнительных аппаратных средств: 
музыкального процессора и электронного диска. 


При включении 7Х Зреснит 128 на экран выводится главное 
меню, предлагающее на выбор один из режимов работы компьюте- 
ра: Таре ЁКоа4ег, 128 ВАЗ!С, Сасшафог, 48 ВА$!С и Таре 1ез$фег. 
Войти в нужный режим можно, установив клавишами {и } 
голубую полоску на соответствующую позицию меню и нажав 
клавинги Ещег или ЕЧИ. Коротко опишем эти режимы. 


Таре Гоа4ег| Единственное назначение режима — загружать прог- 
рамму с магнитофона, то есть выполнять самую 
популярную команду Бейсика ОАО "". Загружать можно как 
программы для эреснат 128, так и для Зреснат 48. Но не 

все программы, написанные на стандартном эресниат- 
Бейсике, после загрузки в этом режиме будут работать. При 
нажатии клавиши ВтеаК происходит возврат в главное меню. 


128 ВАС После выбора этой позиции меню комньютер пере- 
ходит в интерпретатор Бейсика 128*. Его мы подроб- 
но опишем далее. 


Эта опция превращает компьютер в калькулятор, 
производящий математические расчеты с использо- 


ванием всех операций и функций Бейсика. В режиме кальку- 
лятора работает экранный редактор, поэтому можно рас- 
считывать значения выражений уже находящихся на экране. 
В выражениях могут стоять не только числовые значения, но 
и переменные, ранее определенные в бейсик-программе. За- 
дать переменную можно и в самом калькуляторе, выполнив, 
например, "ЕТ а=!. Расчет выражения производится после 


Так для краткости будем называть Бейсик, «зашитый» в 7Х Зрестит 128. 
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нажатия клавиши Ещег. Результат выводится в следующую 
за выражением строку. Аля выхода из режима нужно нажать 
клавиигу ЕЧ4И и в появившемся меню из двух пунктов 
(Сайсшатог и ЕхИ)} выбрать второй. 


Работая в этом режиме, компьютер становится прак- 
тически полностью совместимым с 7.Х $реснит 48*. 
Выйти из режима 48 ВА$!С можно, только выключив компью- 

тер или нажав кнопку КЕЗЕТ. 


Таре Че$фег Не будем подробно описывать этот режим, отметим 
только то, что он предназначен для настройки маг- 
нитофона на запись/считывание информации. Возврат в 
главное меню осуществляется по клавише Вгеак. 


Если при включении /Х Зреснит 128 удерживать клавишу 
ВгеаК, то компьютер начинает выполнять тестовую программу, 


выйти из которой можно, только выключив его или нажав кнопку 
ВЕЪЕЕ. 


КЛАВИАТУРА 


Клавиатура /Х Зресниат 128 содержит 58 клавиш. Аппаратно 
она организована аналогично клавиатуре 7.Х Зресйат (и полно- 
стью совпадает с клавиатурой 7/.Х 5ЗресНиат+). Дополнительные 18 
клавинг лишь дублируют наиболее часто используемые сочетания 
пар клавиш. Например, нажатие клавиши ЕЧИ аналогично дейст- 
вию пары С©С$/1. Соответствие дополнительных клавитт стандарт- 
ным парам приведено в табл. 22. 


Таблица 22. Дополнительные клавиши 2Х $реснит 128. 


" 2Х $реснит 428 | 


+ 
1 
$ 
| 
} 
| 
7 
| 
| 
| 
| 
| 
| 
| 
| 
в! 
р 
:] 
| 
1 
| 
| 
} 
| 
| 
| 


В 
-й >". 
Е - 


| 


= 
ЕЕ 
== 


* = 
Некоторая несовместимость может возникнуть, например, из-за отличии в 


«прошивке» ПЗУ. 
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Следует отметить, что в режиме 1. ® ВАЗ! некоторые клавиши 
не вынолняют приписанных им в стандартном Зресиат-Бейсике 
функций. Например, в этом режиме не работают клавиши Тише 
Уео и шуег5е У!ео, хотя они и имеются на клавиатуре. 

В Бейсике 128 ключевые слова вводятся посимвольно (в том 
числе знаки <>, <= и >=). Символы [, }, |, \, {, } и ` по-прежнему 
набираются через Ехж{еп@а Моде (С$/$5). Кроме того, в ключевых 
словах при вводе не делается различий между строчными и 
прописными буквами. 


ЭКРАННЫЙ РЕДАКТОР 


В редакторе Бейсика 128 нет явного деления экрана на основ- 
ной (верхний} и служебный (нижний). Вводить и редактировать 
строки программы можно на всем пространстве экрана, точнее в 
верхних 22 его строках. Нижние две строки вспомогательные: в 
23-й индицируется режим работы, в 24-й выводятся сообщения об 
ошибках. Впрочем, можно изменить режим и перевести редактор в 
две нижние строки экрана (см. дальше). 

Знакоместо, в которое при нажатии клавиши будет помещен 
очередной символ, выделяется голубым курсором. Курсор переме- 
щается по экрану клавишами 1, {, < и -. Улалить символ, 
стоящий перед курсором, можно, нажав клавишу Ве е. 

Поскольку ключевые слова Бейсика 128 вводятся по буквам, то 
нужно отделять их друг от друга пробелами. Цифры и знаки 
математических операций в программах также являются раз- 
делителями. 

Набранная строка вводится клавишей Е ег. Если у интерпрета- 
тора нет претензий к синтаксису строки, то раздается короткий 
звуковой сигнал и она выполняется или помещается в программу. 
Нереход на другую строку с помощью команд редактора (о них 
дальше) также приравнивается к нажатию Еп(ет. 


Об обнаружении ошибки интерпретатор оповещает характер- 
ным звуком и помечает красным курсором позицию в строке, в 
которой ошибка найдена. И пока она не будет исправлена, интер- 
претатор не только не примет строку, но и не позволит выйти за ее 
пределы. 


В Бейсике 128 нельзя ввести с клавиатуры коды непосредствен- 
ного управления цветом (как в станлартном Бейсике в режиме 
курсора [Е]. 

К 1Х 5ресйят 128 предусмотрено подключение специальной 
дополнительной клавиатуры, делающей: более удобной работу с 
редактором. Достать или сделать ее самому достаточно сложно, но 
не стоит расстраиваться: все возможности экранного редактора 
можно использовать, работая и только на основной клавиатуре. В 
табл. 23 приведены комбинации клавиш основной клавиатуры, 
при нажатии которых выполняются те или иные команды. ре- 
дактора. 
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Таблица 23. Команды редактора Бейсика 128. 


т" 


с". 


 Бобббобооя 
ыы" 
ть в 


Блед 
557 
6464557) 
64645572 
чела 
6464357 
Бава 
БЕ | удаль стою ое строя 
Бета 
6964557 


МЕНЮ БЕЙСИКА 128 


Нажав клавишу ЕН, можно из редактора войти в меню 
Бейсика 128. Кратко опишем пункты этого меню. 


Возврат к редактированию программы. 
Перенумерация строк программы, начиная с номера 
1 


0 и с шагом 10. Команда изменяет параметры в 
операторах перехода и вызова подпрограмм, но только при 
условии, что номера строк перехода заданы в явном виде 
(числом). Номер первой строки и шаг перенумерации можно 
менять, записывая с помощью оператора РОКЕ другие зна- 
чения в ячейки памяти с адресами, соответственно, 23444/45 
и 23446/47. Приведем небольшую программу, которая зада- 
ет параметры перенумерации: 

10 РОКЕ 23444,Бедт-—256+МТ(Бедт/ 256) 
20 РОКЕ 23445 1ЧТ(Бедт/256) 

30 РОКЕ 23446, $4ер-—256*+|МТ($ер/256) 
40 РОКЕ 23447 1ЧТ($ер/256) 


Переменная Бедт должна содержать номер первой строки, 
Зер — шаг перенумерации. 


ОПЕРАТОРЫ БЕЙСИКА 128 


Если при заданных параметрах номер последней строки ока- 
зывается более 9999, то перенумерация не будет осуществле- 
на. 


Перевод окна редактора в две нижние строки экрана. 
Опция предназначена для тех случаев, когда жела- 
тельно сохранять в процессе редактирования информацию в 
верхних строках экрана (например, при графических постро- 
ениях). Возвратиться к основному режиму работы редактора 
можно, повторно выбрав этот пункт меню. 


Распечатка на принтере листинга бейсик-программы, 
находящейся в памяти. 


Переход в главное меню 7Х Зрес!тит 128 (текст бей- 
сик-программы сохраняется). 


ОПЕРАТОРЫ БЕЙСИКА 128 


Список операторов Бейсика 128 дополнен относительно стан- 
дартного лишь двумя новыми операторами $РЕСТКОМ и РЬАУ, кроме 
того, модифицированы некоторые старые. 

Скорость выполнения программ в режиме 128 ВАЗ! несколько 
ниже, чем в режиме 48 ВА$!С. Это связано с тем, что при выпол- 
нении многих операторов используются подпрограммы стандарт- 
ного Бейсика и на переключение режимов уходит дополнительное, 
хотя и неболышое, время. 


Ниже описаны новые операторы Бейсика. 


ЗРЕСТВИМ 


Оператор 5РЕСТКУМ переключает компьютер в режим эмуляции 
Г.Х эресНит 48, то есть выполняет действие, аналогичное опции 
48 ВА$1С главного меню. Отличие только в том, что при переходе с 
помощью оператора $РЕСТВЫМ программа, находящаяся в памяти, 
сохраняется. Если оператор $РЕСТКОМ выполняется в программе, то 
она останавливается с сообщением 0 ОК. 

Кроме того, оператор 5РЕСТКОМ переопределяет канал, обслу- 
живающий принтер. После выполнения оператора вся инфор- 
мация, поступавшая ранее на принтер, будет выводиться на экран. 


РЕА\У 


Оператор РЕАУ — основная достопримечательность 
Бейсика 128. Он обслуживает встроенный в 7Х Зресништ 128 
трехканальный музыкальный процессор*, на порядок увеличива- 
ющий звуковые возможности компьютера. 


Тип процессора — АУ-3-8912. 
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Вслед за ключевым словом РЕАУ размещаются строки символов 
— стринги. Именно они задают музыкальную программу, то есть 
определяют, когда и что играть. В общем виде формат оператора 
записывается так: 


РЕАУ а$[,6$,с$,4$,е$ 1$,9$,1$] 


— где а$, 6$, ..., 5$ — стринги. Как видно из формата, за ключевым 
словом РЕАУ может следовать от 1! до 8 стрингов. Однако сам 
музыкальный процессор пользуется только первыми тремя из них 
— а$, Ь$ и с‹$. Они задают программы, соответственно, для каналов 
А, В и С музыкального процессора. Эти программы выполняются 
одновременно, причем можно заставить звучать как все три кана- 
ла, так и один или два, задав необходимое количество стрингов. 

Остальные стринги (4$, е$, ..., 1$) предназначены для управ- 
ления музыкальными инструментами, которые можно подключить 
к 7Х 5респит 128 через специальный МШ]|-интерфейс*. 

Ноты ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ и СИ записываются ла- 
тинскими буквами, соответственно, с, 4, е, # дхаи Ь. Например, 
оператор 


РЕАУ "саедаБС" 
проиграет гамму ДО-мажор. 


Ноты следующей октавы обозначаются прописными латински- 
ми буквами С, ,, Е, РЁ, С, А и В. Полутона задаются знаками: # — 
диез и $ — бемоль. Например, ДО-диез, запишется как #с, СИ-бе- 
моль — $Ь, а гамма ДО-минор — са$еа$а$ЬС. 

Длительность звучания нот определяется числом от 1 (мини- 
мальная)} до 9 (максимальная), стоящим перед нотой (табл. 24), 
например: РЕАУ "ЗС". Заданная длительность распространяется на 
все послелдующие ноты и паузы (см. команду задания паузы &). 

Числами от 10 ло 12 программируются триоли. Ноты триоли 
следуют непосредственно за числом: З{еа&11{еаб{еа. Триоли не 
изменяют установленной длительности нот. 

Возможно сыграть ноту произвольной длительности. Аля этого 
перед ней через символ подчеркивания (_) ставят несколько пара- 
метров, залающих требуемую длительность. Например, нота ДО 
длительностью 38 (18+14) запишется так: 3_5с. Алительность зву- 
чания последующих нот определяет последний параметр. 


Кроме нот, в музыкальных программах могут использоваться 
специальные команды оператора РЬА\: 


О Изменение октавы. Номер октавы задается числом от 0 до 8 
(по умолчанию установлена 5-я октава}. Все ноты после этой 
команды будут звучать в выбранной октаве, пока она не будет 
сменена** 


Диапазон звучания в переделах заданной октавы можно рас- 
ширить, используя серии диезов или бемолей. Например, Оба 
можно записать как О4###Вю 


Миз!са! ш;нитеп{ 01а! Ниейасе — цифровой интерфейс для музыкальных 
инструментов. 


Заметим, что самые низкие ноты в`0-йЙ и 1-й октавах без МШЕ-интерфейса вос- 
производиться будут неправильно. 
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Таблица 24. Длительность звучания нот в операторе РЕАУ. 


а-я 


Одна шестнадцатая с точкой | 


Одна восьмая 


Одна восьмая с точкой : 


Одна четвертая 


-. 


| 


Одна шестнадцатая Я 


Одна восьмая 5 
242 


Одна четвертая 


Разделитель параметров. Он используется в том случае, если 
нужно задать длительность звучания нот сразу за командой с 
числовым параметром: 06430; хотя тоже самое допустимо 
записывать и с пробелом: Об 490. 


Пауза установленной длительности: 6с&С (здесь длительность 
паузы равна 6). 

Громкость звучания. Громкость задается параметром, следу- 
ющим за командой: от Ц (минимальная — выключено) до 15 
(максимальная). Минимальная громкость (команда \0) может 
использоваться для временного отключения канала. 


Программирование эффектов. Ноты могут воспроизводиться 
не только с фиксированной громкостью, но и со всевозмож- 
ными эффектами: затуханиями, всплесками и т. д. Характер 
эффекта задается числом от 0 до 7, в соответствии с табл. 25. 


Временной параметр звукого эффекта. Для эффектов О0...3 
параметр задает длительность действия эффекта, для 4 и 5 — 
период, для 6 и 7 — полупериод. Значение параметра 
выбирается из диапазона О0...65535. Аля эффектов О0...3 
оптимальное значение — около 1000, для 4...7 — около 300. 
По умолчанию значение параметра принято равным 65535. 
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Включение звукового эффекта. После этой команды все ноты 
будут воспроизводиться с эффектом, установленным коман- 


°лой \М/. Эффекты отключаются по завершении стринга либо 


при изменении громкости (команда У). Следующая програм- 
ма продемонстрирует действие всех эффектов: — 


10 РОК 1=0 ТО 7 
20 РЕАУ "0Х1000\/"-+5ТЮ$ 1+"сде&" 
30 МЕХТ 1 


Таблица 25. Программирование звуковых эффектов. 


единичный спад, 
затем тихо 


единичный подъем, 
затем тихо 


единичный спад, 
затем громко 


единичный подъем, 
затем громко 


` 
= 
ЕЕ 


повторяющийся 
спад 


повторяющийся 
подъем 


повторяющийся 
подъем-спад 


Е 
з 


повторяющийся 
спад-подъем 


ЗО НДИ 


Параметр команды Х 


Теми исполнения. Задается числом в интервале от 60 до 240. 
По умолчанию устанавливается темп, соответствующий ко- 
манде Т120. Задать темп можно лишь для всей мелодии в целом, 
поэтому он определяется только в стринге канала А (в других 
каналах команда Т игнорируется}. 


Повтор музыкальной фразы. Музыкальная фраза, взятая в 
скобки, повторится еще раз: (ес\{е7а. Допустимо использовать 
не более 4 пар скобок. 


Закрывающая скобка без соответствующей ей открывающей 
заставит музыкальную фразу повторяться бесконечно от на- 
чала стринга. Используется это, например, в басовых партиях. 


Останов оператора РЕАУ. Встретив эту команду в стринге 
любого канала, оператор РЕАУ закончит свою работу. Команда 


ЭЛЕКТРОННЫЙ ДИСК 


используется, например, для выхода из «зацикленной» басо- 
вой партии, когда заканчивается основная мелодия. 
Ограничитель комментариев. В стринг можно вставлять ком- 
ментарии — любой текст, ограничивая его знаками !. 
Например: 

РЕАУ "3$с!с5!$4!4е5$!" 


Знак ! в конце музыкальной программы ставить не обяза- 
тельно. 

М Режим работы каналов. Каждый канал может не только вос- 
производить чистый тон, но и одновременно генерировать так 
называемый белый шум. Распределение режимов задается ко- 
мандой М с параметром в интервале 1...63. Значение парамет- 
ра определяется суммой кодов, соответствующих режиму каж- 
дого из каналов (Табл. 26). 


+в 


Таблица 26. Режимы работы каналов. 


В следующем примере канал А настраивается на тон, а канал 
В — на шум: 
РЕАУ "М17сеаб{фаСН","ОЗсС)" 


У Установка канала МШТ-интерфейса. Число от 1 до 16, следу- 
ющее за командой, задает номер канала интерфейса, в кото- 
рый необходимо направить вывод музыкальных данных. 


Г Передача управляющих кодов МПЛШ-интерфейсу”. 


ЭЛЕКТРОННЫЙ ДИСК 


В дополнительных 80 килобайтах памяти 7Х Зресбат 128 
организован электронный диск, позволяющий оперировать не- 
сколькими программами без обращения к внешним носителям. 
Естественно, программы должны быть предварительно на этот 
диск записаны в виде файлов. Особенностью файловой структуры 
электронного диска является то, что на него не могут быть записа- 
ны файлы разных типов с одинаковыми именами. Емкость элект- 
ронного диска более 400 файлов. Перед выключением или сбро- 
сом компьютера файлы с электронного диска нужно переписать на 
магнитный носитель. Действие команды Бейсика МЕ\М/ не за- 
трагивает электронный диск. 


* — Подробнее см. в описании МИ]-интерфейса [8]. 
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Операторы, подлерживающие работу электронного диска: 


5АУЕ! 

Запись файла на электронный диск. 

ГОАО! 

Считывание файла с электронного диска. 

МЕРСЕ! 

Подгрузка к программе файла с электронного диска. 


Эти три оператора похожи на инструкции работы с магнитофо- 
ном $АУ\УЕ, ГОАО* и МЕЮСЕ и имеют аналогичный синтаксис. 


САТ! 


Вывод на экран каталога электронного диска (списка всех 
файлов). Файлы выводятся в алфавитном порядке. К сожалению, 
в каталоге не указываются типы файлов. 


ЕКАЗЕ! 


_ Удаление файла с электронного диска. Имя файла записывается 
вслед за ключевым словом без указания типа файла. Например, 
оператор ЕКА$Е! "Мате" удалит файл-с именем "Мате" (независимо 
от его типа). Если файлов много, то выполнение этой команды 
может занять несколько минут! 


РАБОТА С ПРИНТЕРОМ 


Еще одно отличие Бейсика 128 от стандартного — поддержка 
другого типа принтера. Операторы печати, такие как ЕРАМТ, ЦА$Т и 
СОРУ, работают с Ерз5оп-совместимыми моделями принтеров. Нод- 
ключается принтер с помощью встроенного в Зреснит 128 после- 
довательного интерфейса К5-232. 

Скорость передачи данных по последовательному интерфейсу 
устанавливается оператором: 


РОЮМАТ "р"; <зрееа> 


Параметр <«5рее4> выбирается из ряда: 50, 110, 300, 600, 1200, 
2400, 4800, 9600 и лолжен соответствовать скорости обмена в 
бодах (бит/сек.), установленной в принтере. При запуске комнью- 
тера устанавливается скорость 9600 бод. 


Символьный массив перед загрузкой с электронного диска должен быть опреде- 
лен оператором [СИМ. Иначе он будет загружен как простая строка символов. Это 


замечание справедливо и для загрузки с магнитофона символьного массива в 
режиме 128 ВАЗС. 
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ПРИЛОЖЕНИЯ 


1. Сообщения об ошибках интерпретатора Бейсик 128 


Интерпретатор Бейсика 128 в дополнение к сообщениям об 
ошибках стандартного Бейсика имеет и свои собственные: 


а МЕЮСЕ еггог 
не может быть выполнена команда МЕЮСЕ!. 
Ь \Угопд Ше туре 


несоответствие найденного и ожидаемого типа файла в команде, 
работающей с электронным диском. 


< СООЕ егог 


заданная в команде УЕЮРУ!”МАМЕ"СОРЕ <5{а!+>, {епа\> длина 
(<епа#*>) больше реальной длины файла. 


4 Тоо тапу БгасКе{$ 
превышено число скобок в операторе РЬАУ. 
е ЕШе атеа@4у ех!51$ 


файл с указанным именем уже существует на электронном 
диске. 


+ туаНЯ пате 

неправильное имя файла (либо пустое, либо более 10 символов). 
9 ЕШе Чое$ по}{ ех!5$1 

файл с заданным именем не существует на электронном диске. 
в ЕШе дое$ по+ ех!$1 

файл с заданным именем не существует на электронном диске”. 
: туаНа демсе = 

в команде РОЮКМАТ задано неправильное имя устройства. 
{ пуаНа Бац@а га1е 


в команде ГОЕМАТ задано нулевое значение скорости передачи 
по последовательному интерфейсу. 


К туаНа по{е пате 


в одном из стрингов оператора РЕАУ встретилась неопознанная 
команда. 


Это сообщение, очевидно, аналогично сообщению с кодом зд, а ссылки на 
него в ИЗУ найти не удалось. 
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| Митьег +00 ЫЗ 


в одном из стрингов оператора РЁЕАУ указано недопустимое зна- 
чение параметра. 


т Мофе оц{ о{ гапде 


нота не может быть воспроизведена музыкальным процессором 
(например, нота С в 8-й октаве). 


п Ош о{ гапде 


числовой параметр в команде музыкальной программы слишком 
мал или велик. 


о Тоо тапу Не пофе 


слишком много параметров, задающих „длительность, связано 
знаком . 


2. Системные переменные 2Х $реснит 128 


В 7Х 5реснат 128 расширена область системных переменных. 
Сделано это за счет использования части оперативной памяти, 
отведенной в 2Х 5респит 48 под буфер принтера. Ниже приво- 
дятся название, адрес и краткое описание некоторых системных 
переменных, значения которых могут быть использованы из 
Бейсика. 


23389 (ВАМКМ) 


копия’ внутреннего системного регистра, определяющего те- 
кущую архитектуру компьютера (из Бейсика изменять не 
рекомендуется). 


23391 (ВАЧО) 


скорость обмена по последовательному интерфейсу. Хранится 
в «обратном» виде, то есть сначала записан старший байт, 
затем младший. 


23395 (СОГ) 


позиция (номер столбца} вывода на принтер. 


23396 (УЛОТН) 


количество печатных позиций на принтере. При 
достижении этого числа программа печати автоматически 
переводит строку. 


23429/30/31 (ЗЕ5РАСЕ) 


количество свободных байтов на электронном диске. 
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23444/45 (ВМЕТВ$Т) 


номер строки начала при перенумерации строк. Хранится в 
_ «обратном» виде. 


23446/47 (ВМЗТЕР} 
шаг перенумерации. Хранится в «обратном» виде. 
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Фирма «Питер» 


выпуск технической, 
научно-популярной 
м специальной литературы, 
’ изготовление рекламной 
полиграфической продукции 


Издательский отдел фирмы 


е принимает заказы на выполнение всех видов изда- 
тельско-полиграфических работ; 


+ производит подписку на книгу Н. Родионова 


«Адаптация программ к системе ТВ-РО5. 
(Советы начинающему хакеру}» (7 частей) 


Книга адресована тем, кто хочет проникнуть в тайны по- 
строения защищенных загрузчиков программ. Она может 
быть также полезна в качестве практического пособия для 
начинающих программировать на ассемблере. 


Объем - 48 стр. Тираж 10 000 экз. Цена подписки — 50 руб. 
Срок выхода книги - ГУ кв. 1992 г. 


® ГОТОВИТ К Изданию книгу А. Ларченко 


«Дисковые операционные системы 
для Г.Х Зреснит» 


Книга содержит обзор дисковых операционных систем для 
ГХ 5реснит (СР/М, Микро ДОС, +3205, 1500$ и др.) и 
подробное описание системы ТК-ВОО5З: от начальных сведе- 
ний до профессиональных тонкостей. 


Объем - 160 стр. Срок выхода книги - [Г кв. 1993 г. 


е осуществляет оптовую и мелкооптовую продажу 
книги «Диалекты Бейсика для 2Х $ресит» и других 
изданий фирмы; 


» размещает рекламу в изданиях фирмы; 


» приобретает фирменные руководства, книги и жур- 
налы, посвященные 7Х Зресйит; 


» принимает для публикации оригинальные статьи о 
ГХ 5ресНит; 


» приглашает на работу журналистов и редакционных 
работников, знакомых с 7Х Зресит. 


Аля оформления заказа на книги и программы 


необходимо перевести по почте (для частных лиц) или через 
банк (для организаций} на расчетный счет фирмы «Питер» 
соответствующую сумму. Копия платежного документа с 
указанием перечня заказываемых товаров отправляется в 
адрес фирмы. Не забудьте сообщить Ваш обратный адрес. 


Цены приведены без стоимости доставки. Почтовые расходы 
оплачиваются заказчиком при получении бандероли. В слу- 
чае изменения цен доплата производится также при получе- 
нии бандероли. 


Фирма «ПИТЕР» 


Расчетный счет для иногородних платежей: 


к/с 41000161499 р/с 49100609294 
в банке ЦРКУ ГУ ЦБ России 
МФО 161002 


Расчетный счет для платежей из С.-Петербурга: 


р/с 49100609294 в Парнасском отд. 
АО «Банк Санкт-Петербург» 
С.-Нетербурга, МФО 171337 


Адрес: 196244, С.-Петербург, а/я 21 


Телефон/ факс: (812)-235-3749 
Е-тай 2:5030/ 25 @ Попе ога 


По вопросам приобретения литературы можно 
также обращаться к нашим региональным диллерам: 


г. Томск, 634045, ул. 19-й Гвардейской дивизии, 13, 
Фирма «Старт Г/{4.», тел. 44-44-93, 44-80-78 


г. Смоленск, 214018, Киевский пер. 16, 
Коммерческий центр «Апекс», тел. 6-25-19 


Украина, г. Херсон, 325000, ул. Суворова, 3, 
Учебно-научное объединение «Дисплей», тел. 4-01-52 


Украина, г. Луцк, 263026, а/я 94, Фирма «Скиф», тел. 5-99-12 


Беларусь, г. Минск, 220005, а/я 95, 
НПК «Протон-Запад», тел. 63-52- :72, 33-13- 11 


ОТКРЫТАЯ 
1$ККЯ МНОГОКАТАЛОГОВАЯ 
ФОЕТ ДИСКОВАЯ ОПЕРАЦИОННАЯ СИСТЕМА 


С еее 15005 1.0 


Операционная система 1520$ устанавливается на все типы 
компьютеров, совместимых с 2Х 5ресгит и согласуется с 
внешними устройствами такими, как электронный диск, ди- 
сководы 5.25 и 3.5 дюйма, винчестер, модем и локальная 
сеть. 


Оконный интерфейс, контекстно-зависимый встроенный 
НЕГР, работа с командными файлами, системная дата, маска, 
собственное меню в каждом каталоге и многое другое — 
понравятся самому требовательному пользователю. 


Многооконный текстовый редактор, встроенный в ОС 15205, 
работает с файлами в формате МшЯ-Еаи и Гежсоп, в не- 
скольких режимах отображения с длиной строки в 252 
символа. Размер обрабатываемого текста ограничен только 
емкостью дискет. Печать текстов возможна различными 
шрифтами, с разбивкой на страницы и колонки, с автомати-. 
ческой нумерацией. Возможна раздельная печать четных и 
нечетных страниц, печать графических полутоновых изобра- 
жений в произвольном месте листа. 


ОС 15205 предоставляет возможность создания динами- 
ческих рекламных текстовых заставок. 


Нод 15205 созданы различные АРМы со структурой ланных 
в формате ОВАЗЕ. 


ОС 1500$ значительно расширяет возможности использо- 
вания компьютеров типа 2Х 5рес{гат в научной деятельно- 
сти, в сфере бизнеса и управления, для создания прикладных 
и коммерческих программных продуктов. 


ОС 1500$ ориентирована на пользователя, не обладающего 
навыками программирования, однако не оставит равноду- 
ным и профессионального программиста. 


Фирма «1!5КгаЗОЕРТ» при разработке 152005 ориентировалась 
на стиль и идеологию операционной системы М$-РО$, уста- 
навливаемой на компьютерах типа 1ВМ РС. Такой подход 
‚ имеет неоспоримое преимущество — пользователь, работа- 
ющий с 15005 на 7Х $ресйит при переходе на 1ВМ РС 
попадает в знакомую, привычную ему среду. 


ОС 15РО5 — новая жизнь 7Х 5ресиип! 


5КГга5ОЕТ РиБИсцу Отя$топ 1992 
194100, Санкт-Петербург, а/я 34 
(812)-245-18-97 


Фирма «Питер» 


разработка и производство 
7Х $реснит-соместимых компьютеров 
и программного обеспечения 


Фирма предлагает 
частным лицам и организациям сотрудничество 
по распространению и обслуживанию 


учебных компьютерных комплексов на базе 
2Х зреснит 


Компьютерный комплекс включает: 


» рабочее место преподавателя с двумя встроенными 
дисководами, цветным монитором, принтером, кас- 
сетным магнитофоном и джойстиком; 


» места учеников (ло 16) с цветными мониторами и 
джойстиками; 


» дискеты с программами и техническую документа- 
цию. 


Компьютеры объединены в многофункциональную ло- 
кальную сеть (программная поддержка Н. Родионова). 


Помимо системного и игрового программного обеспе- 
чения с комплексами поставляются оригинальные 
учебные программы по информатике, физике, матема- 
тике, астрономии, ботанике и другим школьным пред- 
метам. 


Особый интерес представляет программный пакет, по- 
_зволяющий создать на базе комплекса систему для 
обучения и приема экзаменов по правилам дорожного 
движения. 


Фирма «Питер» доставит комплексы в любой регион 
СНГ, сдаст заказчику «под ключ», обучит персонал, 
обеспечит гарантийное и послегарантийное обслужи- 
вание. 


Фирма «Питер» 


® реализует 2Х Зреснит-совместимые компьютеры: 
руссифицированная клавиатура (ОМ/ЕКТУ, ИЦУКЕН), 
цветной (монохромный) монитор, один или два дис- 
ковода, принтер, набор системных и игровых про- 
грамм на дискетах. 


продает учебные программы для 7Х 5ресиит 


Сборник 1. Аля младших школьников (1-5 класс): 
арифметика (3 программы, в том числе «Таблица умноже- 
ния»), геометрия (5 программ), русский язык (4 программы, 
в том числе «Азбука», «Приставки и суффиксы»), англий- 
ский алфавит, ботаника («Строение цветка»), обучающие 
игры («Правила дорожного движения», «Клавиатура 
ГХ 5ресНит») и др. 


Сборник 2. Аля старших школьников (6-11 класс): 
«Знакомство с 7Х Зресбат», работа с клавиатурой (5 про- 
грамм), «Операторы Бейсика», астрономия (2 программы), 
физика (13 программ, в том числе «Кинематика», «Динами- 
ка», «Свободное падение тел», «Движение тел под углом к 
горизонту», «Тепловые явления», «Цепи переменного тока», 
«Транзистор») и др. 


Цена кассеты с учебными программами — - 690 руб., 
дискеты — 630 руб. 


Программы выполнены на высоком профессио- 
нальном уровне с использованием всех возможно- 
стей 2Х. Зресиит: цветной графики, мультиплика- 
ции, звуковых эффектов. 


предлагает системные программы, описанные в кни- 
ге «Диалекты Бейсика для 7.Х Зресбит». 


Цена кассеты с программами — 300 руб., 
дискеты — 200 руб. 


распространяет дискеты с программами, разра- 
ботанными или адаптированными Н. Родионовым и 
А. Ларченко (РСУ 2.31, РазК-Росюг, Рсорег Р!ц$, 
МОА-5егясе, ТТМ/2М и др.). 


Цена дискеты с комплектом описаний — 350 руб. 


» продает монохромные мониторы «Электроника 
МС6105». 


КАКОЕ ВПЕЧАТЛЕНИЕ 
ОСТАВИЛАУ ВАС КНИГА 


«Диалекты Бейсика для 2Х Зрестит» 


Точность изложенных сведений 
Новизна информации 

Стиль изложения 

Удобство в пользовании 


Оформление 


Общая оценка 


Зреснит-Бейсик 
Компиляторы 5ресиит-Бейсика 
РКО-РО$ 


Газег Вас 


МедаВа$!с 


Ваа Ваз1с 


Бейсик 128 


- {отрежьте и приклейте на конверт} 


196244, Санкт-Петербург, 
а/я 21 


Кому Фирма «Питер» 


Какими диалектами Бейсика Вы пользуетесь чаще всего 


Описание каких программ и аппаратных средств для 
Г.Х 5ресгит Вы посоветуете включить в наши следующие 


издания 


Хотите ли Вы стать нашим региональным распространите- 
лем литературы по 2.Х 5ресгат 

Ваш возраст, профессия 

Сколько лет работаете с 7Х Зресиит 


Ваше имя, адрес, телефон 


Если у Вас есть предложения и пожелания, можете из- 


ложить ИХ 


Большое спасибо всем, кто прислал 
свои отзывы на книгу 
«7Х Зреснгит для пользователей 
и программистов» 


